2007-11-11 20:43:59 -05:00
|
|
|
#!/usr/bin/env scheme-script
|
2007-10-25 16:27:34 -04:00
|
|
|
;;; Ikarus Scheme -- A compiler for R6RS Scheme.
|
2008-01-29 00:34:34 -05:00
|
|
|
;;; Copyright (C) 2006,2007,2008 Abdulaziz Ghuloum
|
2007-10-25 16:27:34 -04:00
|
|
|
;;;
|
|
|
|
|
;;; This program is free software: you can redistribute it and/or modify
|
|
|
|
|
;;; it under the terms of the GNU General Public License version 3 as
|
|
|
|
|
;;; published by the Free Software Foundation.
|
|
|
|
|
;;;
|
|
|
|
|
;;; This program 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
|
|
|
|
|
;;; General Public License for more details.
|
|
|
|
|
;;;
|
|
|
|
|
;;; You should have received a copy of the GNU General Public License
|
|
|
|
|
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
2007-08-26 14:03:25 -04:00
|
|
|
|
2007-08-26 18:51:16 -04:00
|
|
|
(import (ikarus))
|
2007-08-26 14:03:25 -04:00
|
|
|
|
|
|
|
|
;;; library names:
|
|
|
|
|
|
|
|
|
|
(define library-names
|
2007-08-28 11:11:12 -04:00
|
|
|
'(
|
2007-09-15 00:14:47 -04:00
|
|
|
[se (scheme-report-environment)]
|
|
|
|
|
[r5 (rnrs r5rs (6))]
|
2007-08-26 14:03:25 -04:00
|
|
|
[ct (rnrs control (6))]
|
2007-08-26 15:43:18 -04:00
|
|
|
[ev (rnrs eval (6))]
|
2007-08-26 14:03:25 -04:00
|
|
|
[mp (rnrs mutable-pairs (6))]
|
|
|
|
|
[ms (rnrs mutable-strings (6))]
|
2007-09-02 02:47:50 -04:00
|
|
|
[pr (rnrs programs (6))]
|
|
|
|
|
[sc (rnrs syntax-case (6))]
|
|
|
|
|
[fi (rnrs files (6))]
|
2007-09-02 02:57:56 -04:00
|
|
|
[ne (null-environment)]
|
2007-09-09 23:58:00 -04:00
|
|
|
[sr (rnrs sorting (6))]
|
2007-10-26 00:55:00 -04:00
|
|
|
[ex (rnrs exceptions (6))]
|
2007-08-28 11:11:12 -04:00
|
|
|
[ls (rnrs lists (6))]
|
2007-10-23 23:34:11 -04:00
|
|
|
[ri (rnrs records inspection (6))]
|
|
|
|
|
[rp (rnrs records procedural (6))]
|
|
|
|
|
[rs (rnrs records syntactic (6))]
|
|
|
|
|
[co (rnrs conditions (6))]
|
2007-10-27 11:40:40 -04:00
|
|
|
[en (rnrs enums (6))]
|
2007-08-28 11:11:12 -04:00
|
|
|
[is (rnrs io simple (6))]
|
2007-11-11 20:04:09 -05:00
|
|
|
[fl (rnrs arithmetic flonums (6))]
|
2007-10-23 23:34:11 -04:00
|
|
|
[ba (rnrs base (6))]
|
2007-08-28 11:11:12 -04:00
|
|
|
[bv (rnrs bytevectors (6))]
|
2007-08-26 15:43:18 -04:00
|
|
|
[uc (rnrs unicode (6))]
|
2007-08-28 11:11:12 -04:00
|
|
|
[bw (rnrs arithmetic bitwise (6))]
|
|
|
|
|
[fx (rnrs arithmetic fixnums (6))]
|
|
|
|
|
[ht (rnrs hashtables (6))]
|
|
|
|
|
[ip (rnrs io ports (6))]
|
2007-08-26 15:43:18 -04:00
|
|
|
))
|
2007-08-26 14:03:25 -04:00
|
|
|
|
|
|
|
|
(define status-names
|
2007-08-26 20:04:00 -04:00
|
|
|
'(
|
2007-08-26 14:03:25 -04:00
|
|
|
[S scheduled]
|
2007-08-28 11:11:12 -04:00
|
|
|
[C completed]
|
|
|
|
|
))
|
2007-08-26 14:03:25 -04:00
|
|
|
|
|
|
|
|
(define identifier-names
|
2007-08-26 18:51:16 -04:00
|
|
|
'(
|
2007-08-30 17:25:29 -04:00
|
|
|
;;;
|
|
|
|
|
[lambda C ba se ne]
|
|
|
|
|
[and C ba se ne]
|
|
|
|
|
[begin C ba se ne]
|
|
|
|
|
[case C ba se ne]
|
|
|
|
|
[cond C ba se ne]
|
|
|
|
|
[define C ba se ne]
|
|
|
|
|
[define-syntax C ba se ne]
|
2007-08-26 18:51:16 -04:00
|
|
|
[identifier-syntax C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[if C ba se ne]
|
|
|
|
|
[let C ba se ne]
|
|
|
|
|
[let* C ba se ne]
|
2007-08-26 18:51:16 -04:00
|
|
|
[let*-values C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[let-syntax C ba se ne]
|
2007-08-26 18:51:16 -04:00
|
|
|
[let-values C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[letrec C ba se ne]
|
2007-08-26 18:51:16 -04:00
|
|
|
[letrec* C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[letrec-syntax C ba se ne]
|
|
|
|
|
[or C ba se ne]
|
|
|
|
|
[quasiquote C ba se ne]
|
|
|
|
|
[quote C ba se ne]
|
|
|
|
|
[set! C ba se ne]
|
|
|
|
|
[syntax-rules C ba se ne]
|
|
|
|
|
[unquote C ba se ne]
|
|
|
|
|
[unquote-splicing C ba se ne]
|
|
|
|
|
[< C ba se]
|
|
|
|
|
[<= C ba se]
|
|
|
|
|
[= C ba se]
|
|
|
|
|
[> C ba se]
|
|
|
|
|
[>= C ba se]
|
|
|
|
|
[+ C ba se]
|
|
|
|
|
[- C ba se]
|
|
|
|
|
[* C ba se]
|
|
|
|
|
[/ C ba se]
|
|
|
|
|
[abs C ba se]
|
2007-09-02 20:57:02 -04:00
|
|
|
[acos C ba se]
|
2007-11-11 01:13:09 -05:00
|
|
|
[angle S ba se]
|
2007-08-30 17:25:29 -04:00
|
|
|
[append C ba se]
|
|
|
|
|
[apply C ba se]
|
2007-09-02 20:57:02 -04:00
|
|
|
[asin C ba se]
|
2007-09-02 20:48:59 -04:00
|
|
|
[assert C ba]
|
2007-10-26 15:27:42 -04:00
|
|
|
[assertion-violation C ba]
|
2007-09-02 20:53:28 -04:00
|
|
|
[atan C ba se]
|
2007-08-28 15:03:21 -04:00
|
|
|
[boolean=? C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[boolean? C ba se]
|
|
|
|
|
[car C ba se]
|
|
|
|
|
[cdr C ba se]
|
|
|
|
|
[caar C ba se]
|
|
|
|
|
[cadr C ba se]
|
|
|
|
|
[cdar C ba se]
|
|
|
|
|
[cddr C ba se]
|
|
|
|
|
[caaar C ba se]
|
|
|
|
|
[caadr C ba se]
|
|
|
|
|
[cadar C ba se]
|
|
|
|
|
[caddr C ba se]
|
|
|
|
|
[cdaar C ba se]
|
|
|
|
|
[cdadr C ba se]
|
|
|
|
|
[cddar C ba se]
|
|
|
|
|
[cdddr C ba se]
|
|
|
|
|
[caaaar C ba se]
|
|
|
|
|
[caaadr C ba se]
|
|
|
|
|
[caadar C ba se]
|
|
|
|
|
[caaddr C ba se]
|
|
|
|
|
[cadaar C ba se]
|
|
|
|
|
[cadadr C ba se]
|
|
|
|
|
[caddar C ba se]
|
|
|
|
|
[cadddr C ba se]
|
|
|
|
|
[cdaaar C ba se]
|
|
|
|
|
[cdaadr C ba se]
|
|
|
|
|
[cdadar C ba se]
|
|
|
|
|
[cdaddr C ba se]
|
|
|
|
|
[cddaar C ba se]
|
|
|
|
|
[cddadr C ba se]
|
|
|
|
|
[cdddar C ba se]
|
|
|
|
|
[cddddr C ba se]
|
|
|
|
|
[call-with-current-continuation C ba se]
|
2007-08-26 18:51:16 -04:00
|
|
|
[call/cc C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[call-with-values C ba se]
|
|
|
|
|
[ceiling C ba se]
|
|
|
|
|
[char->integer C ba se]
|
|
|
|
|
[char<=? C ba se]
|
|
|
|
|
[char<? C ba se]
|
|
|
|
|
[char=? C ba se]
|
|
|
|
|
[char>=? C ba se]
|
|
|
|
|
[char>? C ba se]
|
|
|
|
|
[char? C ba se]
|
2007-11-05 15:30:42 -05:00
|
|
|
[complex? C ba se]
|
2007-08-30 17:25:29 -04:00
|
|
|
[cons C ba se]
|
|
|
|
|
[cos C ba se]
|
|
|
|
|
[denominator C ba se]
|
2007-09-12 02:37:03 -04:00
|
|
|
[div C ba]
|
|
|
|
|
[mod C ba]
|
|
|
|
|
[div-and-mod C ba]
|
|
|
|
|
[div0 C ba]
|
|
|
|
|
[mod0 C ba]
|
|
|
|
|
[div0-and-mod0 C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[dynamic-wind C ba se]
|
|
|
|
|
[eq? C ba se]
|
2007-09-15 00:14:47 -04:00
|
|
|
[equal? C ba se]
|
2007-08-30 17:25:29 -04:00
|
|
|
[eqv? C ba se]
|
2007-10-26 15:27:42 -04:00
|
|
|
[error C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[even? C ba se]
|
2007-08-28 18:15:27 -04:00
|
|
|
[exact C ba]
|
2007-08-26 18:51:16 -04:00
|
|
|
[exact-integer-sqrt C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[exact? C ba se]
|
2007-09-15 00:14:47 -04:00
|
|
|
[exp C ba se]
|
2007-08-30 17:25:29 -04:00
|
|
|
[expt C ba se]
|
2007-09-12 02:44:19 -04:00
|
|
|
[finite? C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[floor C ba se]
|
2007-09-09 23:50:55 -04:00
|
|
|
[for-each C ba se]
|
2007-08-30 17:25:29 -04:00
|
|
|
[gcd C ba se]
|
2007-11-05 15:30:42 -05:00
|
|
|
[imag-part C ba se]
|
2007-08-28 18:15:27 -04:00
|
|
|
[inexact C ba]
|
2007-09-03 00:34:53 -04:00
|
|
|
[inexact? C ba se]
|
2007-09-12 02:44:19 -04:00
|
|
|
[infinite? C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[integer->char C ba se]
|
2007-09-12 03:10:54 -04:00
|
|
|
[integer-valued? C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[integer? C ba se]
|
|
|
|
|
[lcm C ba se]
|
|
|
|
|
[length C ba se]
|
|
|
|
|
[list C ba se]
|
|
|
|
|
[list->string C ba se]
|
|
|
|
|
[list->vector C ba se]
|
|
|
|
|
[list-ref C ba se]
|
|
|
|
|
[list-tail C ba se]
|
|
|
|
|
[list? C ba se]
|
|
|
|
|
[log C ba se]
|
2008-01-22 10:59:04 -05:00
|
|
|
[magnitude C ba se]
|
2007-11-11 01:13:09 -05:00
|
|
|
[make-polar S ba se]
|
|
|
|
|
[make-rectangular S ba se]
|
2007-08-30 17:25:29 -04:00
|
|
|
[make-string C ba se]
|
|
|
|
|
[make-vector C ba se]
|
|
|
|
|
[map C ba se]
|
|
|
|
|
[max C ba se]
|
|
|
|
|
[min C ba se]
|
2007-09-12 02:44:19 -04:00
|
|
|
[nan? C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[negative? C ba se]
|
|
|
|
|
[not C ba se]
|
2007-08-26 18:51:16 -04:00
|
|
|
[null? C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[number->string C ba se]
|
|
|
|
|
[number? C ba se]
|
|
|
|
|
[numerator C ba se]
|
|
|
|
|
[odd? C ba se]
|
|
|
|
|
[pair? C ba se]
|
|
|
|
|
[positive? C ba se]
|
|
|
|
|
[procedure? C ba se]
|
2007-09-12 03:10:54 -04:00
|
|
|
[rational-valued? C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[rational? C ba se]
|
2007-09-12 00:57:04 -04:00
|
|
|
[rationalize C ba se]
|
2007-11-05 15:30:42 -05:00
|
|
|
[real-part C ba se]
|
2007-09-12 03:10:54 -04:00
|
|
|
[real-valued? C ba]
|
2007-09-11 00:13:10 -04:00
|
|
|
[real? C ba se]
|
2007-08-30 17:25:29 -04:00
|
|
|
[reverse C ba se]
|
|
|
|
|
[round C ba se]
|
|
|
|
|
[sin C ba se]
|
|
|
|
|
[sqrt C ba se]
|
|
|
|
|
[string C ba se]
|
|
|
|
|
[string->list C ba se]
|
|
|
|
|
[string->number C ba se]
|
|
|
|
|
[string->symbol C ba se]
|
|
|
|
|
[string-append C ba se]
|
|
|
|
|
[string-copy C ba se]
|
2007-08-28 17:45:54 -04:00
|
|
|
[string-for-each C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[string-length C ba se]
|
|
|
|
|
[string-ref C ba se]
|
|
|
|
|
[string<=? C ba se]
|
|
|
|
|
[string<? C ba se]
|
|
|
|
|
[string=? C ba se]
|
|
|
|
|
[string>=? C ba se]
|
|
|
|
|
[string>? C ba se]
|
|
|
|
|
[string? C ba se]
|
|
|
|
|
[substring C ba se]
|
|
|
|
|
[symbol->string C ba se]
|
2007-08-28 15:03:21 -04:00
|
|
|
[symbol=? C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[symbol? C ba se]
|
2007-09-02 20:57:02 -04:00
|
|
|
[tan C ba se]
|
2007-09-11 00:22:23 -04:00
|
|
|
[truncate C ba se]
|
2007-08-30 17:25:29 -04:00
|
|
|
[values C ba se]
|
|
|
|
|
[vector C ba se]
|
|
|
|
|
[vector->list C ba se]
|
2007-09-02 02:22:23 -04:00
|
|
|
[vector-fill! C ba se]
|
2007-08-28 17:24:53 -04:00
|
|
|
[vector-for-each C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[vector-length C ba se]
|
2007-08-28 15:37:51 -04:00
|
|
|
[vector-map C ba]
|
2007-08-30 17:25:29 -04:00
|
|
|
[vector-ref C ba se]
|
|
|
|
|
[vector-set! C ba se]
|
|
|
|
|
[vector? C ba se]
|
|
|
|
|
[zero? C ba se]
|
2007-08-28 11:34:13 -04:00
|
|
|
[... C ba sc]
|
2007-08-28 12:46:12 -04:00
|
|
|
[=> C ba ex]
|
|
|
|
|
[_ C ba sc]
|
|
|
|
|
[else C ba ex]
|
2007-08-30 17:25:29 -04:00
|
|
|
;;;
|
2007-09-13 01:10:57 -04:00
|
|
|
[bitwise-arithmetic-shift C bw]
|
|
|
|
|
[bitwise-arithmetic-shift-left C bw]
|
|
|
|
|
[bitwise-arithmetic-shift-right C bw]
|
2007-11-08 22:22:24 -05:00
|
|
|
[bitwise-not C bw]
|
2007-11-08 19:18:37 -05:00
|
|
|
[bitwise-and C bw]
|
|
|
|
|
[bitwise-ior S bw]
|
|
|
|
|
[bitwise-xor S bw]
|
2007-11-13 22:17:02 -05:00
|
|
|
[bitwise-bit-count C bw]
|
2008-01-20 23:13:24 -05:00
|
|
|
[bitwise-bit-field C bw]
|
2007-11-22 17:42:37 -05:00
|
|
|
[bitwise-bit-set? C bw]
|
2008-01-20 22:21:54 -05:00
|
|
|
[bitwise-copy-bit C bw]
|
2007-11-08 19:18:37 -05:00
|
|
|
[bitwise-copy-bit-field S bw]
|
2007-11-13 00:10:10 -05:00
|
|
|
[bitwise-first-bit-set C bw]
|
2007-11-08 19:18:37 -05:00
|
|
|
[bitwise-if S bw]
|
2007-12-23 19:52:18 -05:00
|
|
|
[bitwise-length C bw]
|
2007-11-08 19:18:37 -05:00
|
|
|
[bitwise-reverse-bit-field S bw]
|
|
|
|
|
[bitwise-rotate-bit-field S bw]
|
2007-08-30 17:25:29 -04:00
|
|
|
;;;
|
2007-08-26 18:51:16 -04:00
|
|
|
[fixnum? C fx]
|
2007-09-15 02:06:16 -04:00
|
|
|
[fixnum-width C fx]
|
|
|
|
|
[least-fixnum C fx]
|
|
|
|
|
[greatest-fixnum C fx]
|
2007-09-13 16:39:13 -04:00
|
|
|
[fx* C fx]
|
2007-09-15 03:16:55 -04:00
|
|
|
[fx*/carry C fx]
|
2007-09-13 16:39:13 -04:00
|
|
|
[fx+ C fx]
|
2007-09-15 03:16:55 -04:00
|
|
|
[fx+/carry C fx]
|
2007-09-13 16:39:13 -04:00
|
|
|
[fx- C fx]
|
2007-09-15 03:16:55 -04:00
|
|
|
[fx-/carry C fx]
|
2007-09-13 16:39:13 -04:00
|
|
|
[fx<=? C fx]
|
|
|
|
|
[fx<? C fx]
|
|
|
|
|
[fx=? C fx]
|
|
|
|
|
[fx>=? C fx]
|
|
|
|
|
[fx>? C fx]
|
2007-09-13 19:25:47 -04:00
|
|
|
[fxand C fx]
|
2007-09-15 00:14:47 -04:00
|
|
|
[fxarithmetic-shift C fx]
|
|
|
|
|
[fxarithmetic-shift-left C fx]
|
|
|
|
|
[fxarithmetic-shift-right C fx]
|
2007-11-13 22:33:37 -05:00
|
|
|
[fxbit-count C fx]
|
2007-11-15 07:14:47 -05:00
|
|
|
[fxbit-field C fx]
|
2007-11-15 06:40:50 -05:00
|
|
|
[fxbit-set? C fx]
|
2007-11-15 06:47:51 -05:00
|
|
|
[fxcopy-bit C fx]
|
2007-11-15 07:03:04 -05:00
|
|
|
[fxcopy-bit-field C fx]
|
2007-11-11 20:43:59 -05:00
|
|
|
[fxdiv C fx]
|
|
|
|
|
[fxdiv-and-mod C fx]
|
2007-11-11 21:52:27 -05:00
|
|
|
[fxdiv0 C fx]
|
|
|
|
|
[fxdiv0-and-mod0 C fx]
|
2007-09-13 19:25:47 -04:00
|
|
|
[fxeven? C fx]
|
2007-11-15 06:40:50 -05:00
|
|
|
[fxfirst-bit-set C fx]
|
2007-09-15 03:27:28 -04:00
|
|
|
[fxif C fx]
|
2007-09-13 19:25:47 -04:00
|
|
|
[fxior C fx]
|
2007-11-13 23:24:21 -05:00
|
|
|
[fxlength C fx]
|
2007-09-15 00:24:38 -04:00
|
|
|
[fxmax C fx]
|
|
|
|
|
[fxmin C fx]
|
2007-11-11 20:43:59 -05:00
|
|
|
[fxmod C fx]
|
2007-11-11 21:52:27 -05:00
|
|
|
[fxmod0 C fx]
|
2007-09-13 19:25:47 -04:00
|
|
|
[fxnegative? C fx]
|
|
|
|
|
[fxnot C fx]
|
|
|
|
|
[fxodd? C fx]
|
|
|
|
|
[fxpositive? C fx]
|
2007-09-15 23:42:43 -04:00
|
|
|
[fxreverse-bit-field S fx]
|
|
|
|
|
[fxrotate-bit-field S fx]
|
2007-09-13 19:25:47 -04:00
|
|
|
[fxxor C fx]
|
2007-09-13 16:39:13 -04:00
|
|
|
[fxzero? C fx]
|
2007-08-30 17:25:29 -04:00
|
|
|
;;;
|
2007-09-02 21:02:06 -04:00
|
|
|
[fixnum->flonum C fl]
|
2007-08-26 18:51:16 -04:00
|
|
|
[fl* C fl]
|
|
|
|
|
[fl+ C fl]
|
|
|
|
|
[fl- C fl]
|
|
|
|
|
[fl/ C fl]
|
|
|
|
|
[fl<=? C fl]
|
|
|
|
|
[fl<? C fl]
|
|
|
|
|
[fl=? C fl]
|
|
|
|
|
[fl>=? C fl]
|
|
|
|
|
[fl>? C fl]
|
|
|
|
|
[flabs C fl]
|
2007-09-02 21:16:54 -04:00
|
|
|
[flacos C fl]
|
|
|
|
|
[flasin C fl]
|
|
|
|
|
[flatan C fl]
|
2007-09-10 23:17:06 -04:00
|
|
|
[flceiling C fl]
|
2007-09-02 21:16:54 -04:00
|
|
|
[flcos C fl]
|
2007-09-10 23:30:17 -04:00
|
|
|
[fldenominator C fl]
|
2007-11-11 16:48:03 -05:00
|
|
|
[fldiv C fl]
|
|
|
|
|
[fldiv-and-mod C fl]
|
2007-11-11 20:04:09 -05:00
|
|
|
[fldiv0 C fl]
|
|
|
|
|
[fldiv0-and-mod0 C fl]
|
2007-09-10 22:45:41 -04:00
|
|
|
[fleven? C fl]
|
2007-09-10 23:36:36 -04:00
|
|
|
[flexp C fl]
|
2007-09-12 03:56:08 -04:00
|
|
|
[flexpt C fl]
|
2007-09-10 22:10:19 -04:00
|
|
|
[flfinite? C fl]
|
2007-09-10 23:17:06 -04:00
|
|
|
[flfloor C fl]
|
2007-09-10 22:10:19 -04:00
|
|
|
[flinfinite? C fl]
|
|
|
|
|
[flinteger? C fl]
|
2007-09-11 00:13:10 -04:00
|
|
|
[fllog C fl]
|
2007-08-26 18:51:16 -04:00
|
|
|
[flmax C fl]
|
|
|
|
|
[flmin C fl]
|
2007-11-11 16:48:03 -05:00
|
|
|
[flmod C fl]
|
2007-11-11 20:04:09 -05:00
|
|
|
[flmod0 C fl]
|
2007-09-10 22:10:19 -04:00
|
|
|
[flnan? C fl]
|
|
|
|
|
[flnegative? C fl]
|
2007-09-10 23:30:17 -04:00
|
|
|
[flnumerator C fl]
|
2007-09-10 22:45:41 -04:00
|
|
|
[flodd? C fl]
|
2007-09-10 20:47:17 -04:00
|
|
|
[flonum? C fl]
|
2007-09-10 22:10:19 -04:00
|
|
|
[flpositive? C fl]
|
2007-08-26 18:51:16 -04:00
|
|
|
[flround C fl]
|
2007-09-02 21:16:54 -04:00
|
|
|
[flsin C fl]
|
2007-09-11 00:13:10 -04:00
|
|
|
[flsqrt C fl]
|
2007-09-02 21:16:54 -04:00
|
|
|
[fltan C fl]
|
2007-09-11 00:22:23 -04:00
|
|
|
[fltruncate C fl]
|
2007-08-26 18:51:16 -04:00
|
|
|
[flzero? C fl]
|
2007-11-11 01:19:18 -05:00
|
|
|
[real->flonum C fl]
|
2007-10-23 17:40:04 -04:00
|
|
|
[make-no-infinities-violation C fl]
|
|
|
|
|
[make-no-nans-violation C fl]
|
|
|
|
|
[&no-infinities C fl]
|
|
|
|
|
[no-infinities-violation? C fl]
|
|
|
|
|
[&no-nans C fl]
|
|
|
|
|
[no-nans-violation? C fl]
|
2007-08-30 17:25:29 -04:00
|
|
|
;;;
|
2007-08-26 18:51:16 -04:00
|
|
|
[bytevector->sint-list C bv]
|
|
|
|
|
[bytevector->u8-list C bv]
|
|
|
|
|
[bytevector->uint-list C bv]
|
|
|
|
|
[bytevector-copy C bv]
|
|
|
|
|
[bytevector-copy! C bv]
|
|
|
|
|
[bytevector-fill! C bv]
|
2007-11-06 21:08:52 -05:00
|
|
|
[bytevector-ieee-double-native-ref C bv]
|
|
|
|
|
[bytevector-ieee-double-native-set! C bv]
|
2007-11-07 11:00:39 -05:00
|
|
|
[bytevector-ieee-double-ref C bv]
|
|
|
|
|
[bytevector-ieee-double-set! C bv]
|
2007-11-08 22:56:14 -05:00
|
|
|
[bytevector-ieee-single-native-ref C bv]
|
|
|
|
|
[bytevector-ieee-single-native-set! C bv]
|
|
|
|
|
[bytevector-ieee-single-ref C bv]
|
|
|
|
|
[bytevector-ieee-single-set! C bv]
|
2007-08-26 18:51:16 -04:00
|
|
|
[bytevector-length C bv]
|
2007-09-10 14:24:35 -04:00
|
|
|
[bytevector-s16-native-ref C bv]
|
2007-09-10 14:58:37 -04:00
|
|
|
[bytevector-s16-native-set! C bv]
|
2007-09-10 14:24:35 -04:00
|
|
|
[bytevector-s16-ref C bv]
|
2007-09-10 14:58:37 -04:00
|
|
|
[bytevector-s16-set! C bv]
|
2007-09-13 01:57:36 -04:00
|
|
|
[bytevector-s32-native-ref C bv]
|
|
|
|
|
[bytevector-s32-native-set! C bv]
|
2007-09-13 01:44:10 -04:00
|
|
|
[bytevector-s32-ref C bv]
|
|
|
|
|
[bytevector-s32-set! C bv]
|
2007-11-11 23:29:54 -05:00
|
|
|
[bytevector-s64-native-ref C bv]
|
|
|
|
|
[bytevector-s64-native-set! C bv]
|
|
|
|
|
[bytevector-s64-ref C bv]
|
|
|
|
|
[bytevector-s64-set! C bv]
|
2007-08-26 18:51:16 -04:00
|
|
|
[bytevector-s8-ref C bv]
|
|
|
|
|
[bytevector-s8-set! C bv]
|
|
|
|
|
[bytevector-sint-ref C bv]
|
|
|
|
|
[bytevector-sint-set! C bv]
|
2007-09-10 14:10:37 -04:00
|
|
|
[bytevector-u16-native-ref C bv]
|
2007-09-10 14:47:29 -04:00
|
|
|
[bytevector-u16-native-set! C bv]
|
2007-09-10 14:10:37 -04:00
|
|
|
[bytevector-u16-ref C bv]
|
2007-09-10 14:58:37 -04:00
|
|
|
[bytevector-u16-set! C bv]
|
2007-09-13 01:57:36 -04:00
|
|
|
[bytevector-u32-native-ref C bv]
|
|
|
|
|
[bytevector-u32-native-set! C bv]
|
2007-09-13 01:44:10 -04:00
|
|
|
[bytevector-u32-ref C bv]
|
|
|
|
|
[bytevector-u32-set! C bv]
|
2007-11-11 23:29:54 -05:00
|
|
|
[bytevector-u64-native-ref C bv]
|
|
|
|
|
[bytevector-u64-native-set! C bv]
|
|
|
|
|
[bytevector-u64-ref C bv]
|
|
|
|
|
[bytevector-u64-set! C bv]
|
2007-08-26 18:51:16 -04:00
|
|
|
[bytevector-u8-ref C bv]
|
|
|
|
|
[bytevector-u8-set! C bv]
|
|
|
|
|
[bytevector-uint-ref C bv]
|
|
|
|
|
[bytevector-uint-set! C bv]
|
|
|
|
|
[bytevector=? C bv]
|
|
|
|
|
[bytevector? C bv]
|
2007-09-10 15:15:20 -04:00
|
|
|
[endianness C bv]
|
|
|
|
|
[native-endianness C bv]
|
2007-08-26 18:51:16 -04:00
|
|
|
[sint-list->bytevector C bv]
|
|
|
|
|
[string->utf16 S bv]
|
|
|
|
|
[string->utf32 S bv]
|
2007-10-12 00:33:19 -04:00
|
|
|
[string->utf8 C bv]
|
2007-08-26 18:51:16 -04:00
|
|
|
[u8-list->bytevector C bv]
|
|
|
|
|
[uint-list->bytevector C bv]
|
2007-10-12 00:33:19 -04:00
|
|
|
[utf8->string C bv]
|
2007-08-26 18:51:16 -04:00
|
|
|
[utf16->string S bv]
|
|
|
|
|
[utf32->string S bv]
|
2007-08-30 17:25:29 -04:00
|
|
|
;;;
|
2007-10-23 17:40:04 -04:00
|
|
|
[condition? C co]
|
|
|
|
|
[&assertion C co]
|
|
|
|
|
[assertion-violation? C co]
|
|
|
|
|
[&condition C co]
|
|
|
|
|
[condition C co]
|
|
|
|
|
[condition-accessor C co]
|
|
|
|
|
[condition-irritants C co]
|
|
|
|
|
[condition-message C co]
|
|
|
|
|
[condition-predicate C co]
|
|
|
|
|
[condition-who C co]
|
2007-10-23 17:53:43 -04:00
|
|
|
[define-condition-type C co]
|
2007-10-23 17:40:04 -04:00
|
|
|
[&error C co]
|
|
|
|
|
[error? C co]
|
|
|
|
|
[&implementation-restriction C co]
|
|
|
|
|
[implementation-restriction-violation? C co]
|
|
|
|
|
[&irritants C co]
|
|
|
|
|
[irritants-condition? C co]
|
|
|
|
|
[&lexical C co]
|
|
|
|
|
[lexical-violation? C co]
|
|
|
|
|
[make-assertion-violation C co]
|
|
|
|
|
[make-error C co]
|
|
|
|
|
[make-implementation-restriction-violation C co]
|
|
|
|
|
[make-irritants-condition C co]
|
|
|
|
|
[make-lexical-violation C co]
|
|
|
|
|
[make-message-condition C co]
|
|
|
|
|
[make-non-continuable-violation C co]
|
|
|
|
|
[make-serious-condition C co]
|
|
|
|
|
[make-syntax-violation C co]
|
|
|
|
|
[make-undefined-violation C co]
|
|
|
|
|
[make-violation C co]
|
|
|
|
|
[make-warning C co]
|
|
|
|
|
[make-who-condition C co]
|
|
|
|
|
[&message C co]
|
|
|
|
|
[message-condition? C co]
|
|
|
|
|
[&non-continuable C co]
|
|
|
|
|
[non-continuable-violation? C co]
|
|
|
|
|
[&serious C co]
|
|
|
|
|
[serious-condition? C co]
|
|
|
|
|
[simple-conditions C co]
|
|
|
|
|
[&syntax C co]
|
|
|
|
|
[syntax-violation C co sc]
|
|
|
|
|
[syntax-violation-form C co]
|
|
|
|
|
[syntax-violation-subform C co]
|
|
|
|
|
[syntax-violation? C co]
|
|
|
|
|
[&undefined C co]
|
|
|
|
|
[undefined-violation? C co]
|
|
|
|
|
[&violation C co]
|
|
|
|
|
[violation? C co]
|
|
|
|
|
[&warning C co]
|
|
|
|
|
[warning? C co]
|
|
|
|
|
[&who C co]
|
|
|
|
|
[who-condition? C co]
|
2007-08-30 17:25:29 -04:00
|
|
|
;;;
|
2007-08-26 18:51:16 -04:00
|
|
|
[case-lambda C ct]
|
2007-08-30 17:25:29 -04:00
|
|
|
[do C ct se ne]
|
2007-08-26 18:51:16 -04:00
|
|
|
[unless C ct]
|
|
|
|
|
[when C ct]
|
2007-08-30 17:25:29 -04:00
|
|
|
;;;
|
2007-10-27 11:40:40 -04:00
|
|
|
[define-enumeration C en]
|
2007-10-27 11:15:10 -04:00
|
|
|
[enum-set->list C en]
|
|
|
|
|
[enum-set-complement C en]
|
|
|
|
|
[enum-set-constructor C en]
|
|
|
|
|
[enum-set-difference C en]
|
|
|
|
|
[enum-set-indexer C en]
|
|
|
|
|
[enum-set-intersection C en]
|
|
|
|
|
[enum-set-member? C en]
|
|
|
|
|
[enum-set-projection C en]
|
|
|
|
|
[enum-set-subset? C en]
|
|
|
|
|
[enum-set-union C en]
|
|
|
|
|
[enum-set-universe C en]
|
|
|
|
|
[enum-set=? C en]
|
|
|
|
|
[make-enumeration C en]
|
2007-08-30 17:25:29 -04:00
|
|
|
;;;
|
2007-08-26 18:51:16 -04:00
|
|
|
[environment C ev]
|
2007-08-30 17:25:29 -04:00
|
|
|
[eval C ev se]
|
|
|
|
|
;;;
|
2007-10-23 23:34:11 -04:00
|
|
|
[raise C ex]
|
|
|
|
|
[raise-continuable C ex]
|
|
|
|
|
[with-exception-handler C ex]
|
2007-10-26 00:55:00 -04:00
|
|
|
[guard C ex]
|
2007-08-30 17:25:29 -04:00
|
|
|
;;;
|
2007-12-10 10:18:52 -05:00
|
|
|
[binary-port? C ip]
|
2007-10-11 23:21:55 -04:00
|
|
|
[buffer-mode C ip]
|
|
|
|
|
[buffer-mode? C ip]
|
2007-10-11 21:28:08 -04:00
|
|
|
[bytevector->string S ip]
|
2007-12-10 10:36:10 -05:00
|
|
|
[string->bytevector S ip]
|
2007-12-10 10:18:52 -05:00
|
|
|
[call-with-bytevector-output-port C ip]
|
|
|
|
|
[call-with-port C ip]
|
|
|
|
|
[call-with-string-output-port C ip]
|
2007-08-30 17:25:29 -04:00
|
|
|
;;;
|
|
|
|
|
[assoc C ls se]
|
2007-09-10 15:56:15 -04:00
|
|
|
[assp C ls]
|
2007-08-30 17:25:29 -04:00
|
|
|
[assq C ls se]
|
|
|
|
|
[assv C ls se]
|
2007-09-09 23:50:55 -04:00
|
|
|
[cons* C ls]
|
2007-09-10 17:03:40 -04:00
|
|
|
[filter C ls]
|
2007-09-10 17:09:19 -04:00
|
|
|
[find C ls]
|
2007-10-10 06:43:25 -04:00
|
|
|
[fold-left C ls]
|
|
|
|
|
[fold-right C ls]
|
2007-10-10 03:53:42 -04:00
|
|
|
[for-all C ls]
|
|
|
|
|
[exists C ls]
|
2007-08-30 17:25:29 -04:00
|
|
|
[member C ls se]
|
2007-09-10 15:56:15 -04:00
|
|
|
[memp C ls]
|
2007-08-30 17:25:29 -04:00
|
|
|
[memq C ls se]
|
|
|
|
|
[memv C ls se]
|
2007-09-10 17:28:06 -04:00
|
|
|
[partition C ls]
|
2007-09-10 16:33:05 -04:00
|
|
|
[remq C ls]
|
2007-09-10 17:03:40 -04:00
|
|
|
[remp C ls]
|
|
|
|
|
[remv C ls]
|
|
|
|
|
[remove C ls]
|
2007-08-30 17:25:29 -04:00
|
|
|
;;;
|
|
|
|
|
[set-car! C mp se]
|
|
|
|
|
[set-cdr! C mp se]
|
|
|
|
|
;;;
|
|
|
|
|
[string-set! C ms se]
|
2007-09-02 02:22:23 -04:00
|
|
|
[string-fill! C ms se]
|
2007-08-30 17:25:29 -04:00
|
|
|
;;;
|
2007-08-26 21:24:22 -04:00
|
|
|
[command-line C pr]
|
|
|
|
|
[exit C pr]
|
2007-08-30 17:25:29 -04:00
|
|
|
;;;
|
2007-09-02 02:47:50 -04:00
|
|
|
[delay C r5 se ne]
|
2007-08-30 17:25:29 -04:00
|
|
|
[exact->inexact C r5 se]
|
2007-09-02 02:47:50 -04:00
|
|
|
[force C r5 se]
|
2007-08-30 17:25:29 -04:00
|
|
|
[inexact->exact C r5 se]
|
|
|
|
|
[modulo C r5 se]
|
|
|
|
|
[remainder C r5 se]
|
2007-09-02 03:09:29 -04:00
|
|
|
[null-environment C r5 se]
|
2007-08-30 17:25:29 -04:00
|
|
|
[quotient C r5 se]
|
2007-09-15 00:14:47 -04:00
|
|
|
[scheme-report-environment C r5 se]
|
2007-08-30 17:25:29 -04:00
|
|
|
;;;
|
2007-11-23 03:44:48 -05:00
|
|
|
[close-port C ip]
|
2007-10-11 21:47:11 -04:00
|
|
|
[eol-style C ip]
|
2007-10-11 21:51:15 -04:00
|
|
|
[error-handling-mode C ip]
|
2007-10-11 23:43:25 -04:00
|
|
|
[file-options C ip]
|
2007-11-12 00:20:02 -05:00
|
|
|
[flush-output-port C ip]
|
2007-12-10 08:05:31 -05:00
|
|
|
[get-bytevector-all C ip]
|
2007-11-22 16:03:44 -05:00
|
|
|
[get-bytevector-n C ip]
|
2007-11-22 16:55:25 -05:00
|
|
|
[get-bytevector-n! C ip]
|
2008-01-22 10:59:04 -05:00
|
|
|
[get-bytevector-some C ip]
|
2007-11-18 18:48:24 -05:00
|
|
|
[get-char C ip]
|
2007-11-22 15:16:38 -05:00
|
|
|
[get-datum C ip]
|
2007-11-07 11:00:39 -05:00
|
|
|
[get-line C ip]
|
2007-12-10 08:05:31 -05:00
|
|
|
[get-string-all C ip]
|
2007-11-22 15:54:10 -05:00
|
|
|
[get-string-n C ip]
|
2007-11-22 16:27:55 -05:00
|
|
|
[get-string-n! C ip]
|
2007-11-22 14:26:54 -05:00
|
|
|
[get-u8 C ip]
|
2007-10-23 17:40:04 -04:00
|
|
|
[&i/o C ip is fi]
|
|
|
|
|
[&i/o-decoding C ip]
|
|
|
|
|
[i/o-decoding-error? C ip]
|
|
|
|
|
[&i/o-encoding C ip]
|
|
|
|
|
[i/o-encoding-error-char C ip]
|
|
|
|
|
[i/o-encoding-error? C ip]
|
|
|
|
|
[i/o-error-filename C ip is fi]
|
|
|
|
|
[i/o-error-port C ip is fi]
|
|
|
|
|
[i/o-error? C ip is fi]
|
|
|
|
|
[&i/o-file-already-exists C ip is fi]
|
|
|
|
|
[i/o-file-already-exists-error? C ip is fi]
|
|
|
|
|
[&i/o-file-does-not-exist C ip is fi]
|
|
|
|
|
[i/o-file-does-not-exist-error? C ip is fi]
|
|
|
|
|
[&i/o-file-is-read-only C ip is fi]
|
|
|
|
|
[i/o-file-is-read-only-error? C ip is fi]
|
|
|
|
|
[&i/o-file-protection C ip is fi]
|
|
|
|
|
[i/o-file-protection-error? C ip is fi]
|
|
|
|
|
[&i/o-filename C ip is fi]
|
|
|
|
|
[i/o-filename-error? C ip is fi]
|
|
|
|
|
[&i/o-invalid-position C ip is fi]
|
|
|
|
|
[i/o-invalid-position-error? C ip is fi]
|
|
|
|
|
[&i/o-port C ip is fi]
|
|
|
|
|
[i/o-port-error? C ip is fi]
|
|
|
|
|
[&i/o-read C ip is fi]
|
|
|
|
|
[i/o-read-error? C ip is fi]
|
|
|
|
|
[&i/o-write C ip is fi]
|
|
|
|
|
[i/o-write-error? C ip is fi]
|
2007-12-10 08:05:31 -05:00
|
|
|
[lookahead-char C ip]
|
|
|
|
|
[lookahead-u8 C ip]
|
2007-09-04 01:40:31 -04:00
|
|
|
[make-bytevector C bv]
|
2007-12-10 08:05:31 -05:00
|
|
|
[make-custom-binary-input-port C ip]
|
2007-12-10 10:36:10 -05:00
|
|
|
[make-custom-binary-output-port C ip]
|
2007-12-10 11:11:59 -05:00
|
|
|
[make-custom-textual-input-port C ip]
|
|
|
|
|
[make-custom-textual-output-port C ip]
|
|
|
|
|
[make-custom-binary-input/output-port S ip]
|
2007-11-11 01:13:09 -05:00
|
|
|
[make-custom-textual-input/output-port S ip]
|
2007-10-23 17:40:04 -04:00
|
|
|
[make-i/o-decoding-error C ip]
|
|
|
|
|
[make-i/o-encoding-error C ip]
|
|
|
|
|
[make-i/o-error C ip is fi]
|
|
|
|
|
[make-i/o-file-already-exists-error C ip is fi]
|
|
|
|
|
[make-i/o-file-does-not-exist-error C ip is fi]
|
|
|
|
|
[make-i/o-file-is-read-only-error C ip is fi]
|
|
|
|
|
[make-i/o-file-protection-error C ip is fi]
|
|
|
|
|
[make-i/o-filename-error C ip is fi]
|
|
|
|
|
[make-i/o-invalid-position-error C ip is fi]
|
|
|
|
|
[make-i/o-port-error C ip is fi]
|
|
|
|
|
[make-i/o-read-error C ip is fi]
|
|
|
|
|
[make-i/o-write-error C ip is fi]
|
2007-10-11 21:28:08 -04:00
|
|
|
[latin-1-codec C ip]
|
2007-10-11 22:55:20 -04:00
|
|
|
[make-transcoder C ip]
|
2007-10-11 21:47:11 -04:00
|
|
|
[native-eol-style C ip]
|
2007-10-11 22:55:20 -04:00
|
|
|
[native-transcoder C ip]
|
2007-12-10 08:05:31 -05:00
|
|
|
[open-bytevector-input-port C ip]
|
|
|
|
|
[open-bytevector-output-port C ip]
|
|
|
|
|
[open-file-input-port C ip]
|
2007-11-11 01:13:09 -05:00
|
|
|
[open-file-input/output-port S ip]
|
2007-12-10 08:05:31 -05:00
|
|
|
[open-file-output-port C ip]
|
2007-11-22 14:26:54 -05:00
|
|
|
[open-string-input-port C ip]
|
|
|
|
|
[open-string-output-port C ip]
|
2007-10-11 21:28:08 -04:00
|
|
|
[output-port-buffer-mode S ip]
|
2007-12-10 10:18:52 -05:00
|
|
|
[port-eof? C ip]
|
2007-10-11 21:28:08 -04:00
|
|
|
[port-has-port-position? S ip]
|
|
|
|
|
[port-has-set-port-position!? S ip]
|
|
|
|
|
[port-position S ip]
|
2007-12-10 08:05:31 -05:00
|
|
|
[port-transcoder C ip]
|
2007-11-12 00:20:02 -05:00
|
|
|
[port? C ip]
|
2007-11-22 15:39:33 -05:00
|
|
|
[put-bytevector C ip]
|
2007-11-18 18:48:24 -05:00
|
|
|
[put-char C ip]
|
2007-11-22 14:48:29 -05:00
|
|
|
[put-datum C ip]
|
2007-11-22 15:16:38 -05:00
|
|
|
[put-string C ip]
|
2007-11-18 18:48:24 -05:00
|
|
|
[put-u8 C ip]
|
2007-10-11 21:28:08 -04:00
|
|
|
[set-port-position! S ip]
|
2007-11-23 03:44:48 -05:00
|
|
|
[standard-error-port C ip]
|
|
|
|
|
[standard-input-port C ip]
|
|
|
|
|
[standard-output-port C ip]
|
2007-12-10 08:05:31 -05:00
|
|
|
[textual-port? C ip]
|
|
|
|
|
[transcoded-port C ip]
|
2007-10-12 00:00:36 -04:00
|
|
|
[transcoder-codec C ip]
|
|
|
|
|
[transcoder-eol-style C ip]
|
|
|
|
|
[transcoder-error-handling-mode C ip]
|
2007-10-11 21:28:08 -04:00
|
|
|
[utf-16-codec C ip]
|
|
|
|
|
[utf-8-codec C ip]
|
2007-08-30 17:25:29 -04:00
|
|
|
;;;
|
|
|
|
|
[input-port? C is ip se]
|
|
|
|
|
[output-port? C is ip se]
|
|
|
|
|
[current-input-port C ip is se]
|
|
|
|
|
[current-output-port C ip is se]
|
2007-08-26 18:51:16 -04:00
|
|
|
[current-error-port C ip is]
|
2007-08-30 17:25:29 -04:00
|
|
|
[eof-object C ip is se]
|
2007-08-26 18:51:16 -04:00
|
|
|
[eof-object? C ip is]
|
2007-08-30 17:25:29 -04:00
|
|
|
[close-input-port C is se]
|
|
|
|
|
[close-output-port C is se]
|
|
|
|
|
[display C is se]
|
|
|
|
|
[newline C is se]
|
|
|
|
|
[open-input-file C is se]
|
|
|
|
|
[open-output-file C is se]
|
|
|
|
|
[peek-char C is se]
|
|
|
|
|
[read C is se]
|
|
|
|
|
