* added legend entries from psyntax distro.
This commit is contained in:
Abdulaziz Ghuloum
parent
411c05c74b
commit
8de86bda33
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
|
@ -13,7 +13,7 @@
|
||||||
eval-r6rs-top-level boot-library-expand eval-top-level
|
eval-r6rs-top-level boot-library-expand eval-top-level
|
||||||
null-environment)
|
null-environment)
|
||||||
(import
|
(import
|
||||||
(r6rs)
|
(rnrs)
|
||||||
(except (ikarus library-manager) installed-libraries)
|
(except (ikarus library-manager) installed-libraries)
|
||||||
(only (ikarus system $bootstrap) eval-core)
|
(only (ikarus system $bootstrap) eval-core)
|
||||||
(chez modules)
|
(chez modules)
|
||||||
|
|
@ -22,8 +22,8 @@
|
||||||
(only (ikarus) error printf ormap andmap cons* format
|
(only (ikarus) error printf ormap andmap cons* format
|
||||||
make-record-type void set-rtd-printer! type-descriptor
|
make-record-type void set-rtd-printer! type-descriptor
|
||||||
pretty-print)
|
pretty-print)
|
||||||
(only (r6rs syntax-case) syntax-case syntax with-syntax)
|
(only (rnrs syntax-case) syntax-case syntax with-syntax)
|
||||||
(prefix (r6rs syntax-case) sys:))
|
(prefix (rnrs syntax-case) sys:))
|
||||||
(define who 'expander)
|
(define who 'expander)
|
||||||
(define-syntax no-source
|
(define-syntax no-source
|
||||||
(lambda (x) #f))
|
(lambda (x) #f))
|
||||||
|
|
|
||||||
316
src/makefile.ss
316
src/makefile.ss
|
|
@ -64,6 +64,7 @@
|
||||||
"ikarus.fasl.ss"
|
"ikarus.fasl.ss"
|
||||||
"ikarus.compiler.ss"
|
"ikarus.compiler.ss"
|
||||||
"ikarus.library-manager.ss"
|
"ikarus.library-manager.ss"
|
||||||
|
;"psyntax.library-manager.ss"
|
||||||
"ikarus.syntax.ss"
|
"ikarus.syntax.ss"
|
||||||
"ikarus.load.ss"
|
"ikarus.load.ss"
|
||||||
"ikarus.pretty-print.ss"
|
"ikarus.pretty-print.ss"
|
||||||
|
|
@ -129,6 +130,123 @@
|
||||||
))
|
))
|
||||||
|
|
||||||
(define library-legend
|
(define library-legend
|
||||||
|
;; abbr. name visible? required?
|
||||||
|
'([i (ikarus) #t]
|
||||||
|
[cm (chez modules) #t]
|
||||||
|
[symbols (ikarus symbols) #t]
|
||||||
|
[parameters (ikarus parameters) #t]
|
||||||
|
[interaction (ikarus interaction) #t]
|
||||||
|
[ne (ikarus null-environment-5) #t]
|
||||||
|
[se (ikarus scheme-report-environment-5) #t]
|
||||||
|
[r (rnrs) #t]
|
||||||
|
[r5 (rnrs r5rs) #t]
|
||||||
|
[ct (rnrs control) #t]
|
||||||
|
[ev (rnrs eval) #t]
|
||||||
|
[mp (rnrs mutable-pairs) #t]
|
||||||
|
[ms (rnrs mutable-strings) #t]
|
||||||
|
[pr (rnrs programs) #t]
|
||||||
|
[sc (rnrs syntax-case) #t]
|
||||||
|
[fi (rnrs files) #t]
|
||||||
|
[sr (rnrs sorting) #t]
|
||||||
|
[ba (rnrs base) #t]
|
||||||
|
[ls (rnrs lists) #t]
|
||||||
|
[is (rnrs io simple) #t]
|
||||||
|
[bv (rnrs bytevectors) #t]
|
||||||
|
[uc (rnrs unicode) #t]
|
||||||
|
[ex (rnrs exceptions) #t]
|
||||||
|
[bw (rnrs arithmetic bitwise) #t]
|
||||||
|
[fx (rnrs arithmetic fixnums) #t]
|
||||||
|
[fl (rnrs arithmetic flonums) #t]
|
||||||
|
[ht (rnrs hashtables) #t]
|
||||||
|
[ip (rnrs io ports) #t]
|
||||||
|
[en (rnrs enums) #t]
|
||||||
|
[co (rnrs conditions) #t]
|
||||||
|
[ri (rnrs records inspection) #t]
|
||||||
|
[rp (rnrs records procedural) #t]
|
||||||
|
[rs (rnrs records syntactic) #t]
|
||||||
|
[$pairs (ikarus system $pairs) #f]
|
||||||
|
[$lists (ikarus system $lists) #f]
|
||||||
|
[$chars (ikarus system $chars) #f]
|
||||||
|
[$strings (ikarus system $strings) #f]
|
||||||
|
[$vectors (ikarus system $vectors) #f]
|
||||||
|
[$flonums (ikarus system $flonums) #f]
|
||||||
|
[$bignums (ikarus system $bignums) #f]
|
||||||
|
[$bytes (ikarus system $bytevectors) #f]
|
||||||
|
[$fx (ikarus system $fx) #f]
|
||||||
|
[$rat (ikarus system $ratnums) #f]
|
||||||
|
[$symbols (ikarus system $symbols) #f]
|
||||||
|
[$records (ikarus system $records) #f]
|
||||||
|
[$ports (ikarus system $ports) #f]
|
||||||
|
[$codes (ikarus system $codes) #f]
|
||||||
|
[$tcbuckets (ikarus system $tcbuckets) #f]
|
||||||
|
[$io (ikarus system $io) #f]
|
||||||
|
[$arg-list (ikarus system $arg-list) #f]
|
||||||
|
[$stack (ikarus system $stack) #f]
|
||||||
|
[$interrupts (ikarus system $interrupts) #f]
|
||||||
|
[$all (ikarus system $all) #f]
|
||||||
|
[$boot (ikarus system $bootstrap) #f]
|
||||||
|
))
|
||||||
|
|
||||||
|
(define library-legend2
|
||||||
|
;; abbr. name visible? required?
|
||||||
|
'([i (ikarus) #t]
|
||||||
|
[cm (chez modules) #t]
|
||||||
|
[symbols (ikarus symbols) #t]
|
||||||
|
[parameters (ikarus parameters) #t]
|
||||||
|
[interaction (ikarus interaction) #t]
|
||||||
|
[ne (ikarus null-environment-5) #t]
|
||||||
|
[se (ikarus scheme-report-environment-5) #t]
|
||||||
|
[r (rnrs) #t]
|
||||||
|
[r5 (rnrs r5rs) #t]
|
||||||
|
[ct (rnrs control) #t]
|
||||||
|
[ev (rnrs eval) #t]
|
||||||
|
[mp (rnrs mutable-pairs) #t]
|
||||||
|
[ms (rnrs mutable-strings) #t]
|
||||||
|
[pr (rnrs programs) #t]
|
||||||
|
[sc (rnrs syntax-case) #t]
|
||||||
|
[fi (rnrs files) #t]
|
||||||
|
[sr (rnrs sorting) #t]
|
||||||
|
[ba (rnrs base) #t]
|
||||||
|
[ls (rnrs lists) #t]
|
||||||
|
[is (rnrs io simple) #t]
|
||||||
|
[bv (rnrs bytevectors) #t]
|
||||||
|
[uc (rnrs unicode) #t]
|
||||||
|
[ex (rnrs exceptions) #t]
|
||||||
|
[bw (rnrs arithmetic bitwise) #t]
|
||||||
|
[fx (rnrs arithmetic fixnums) #t]
|
||||||
|
[fl (rnrs arithmetic flonums) #t]
|
||||||
|
[ht (rnrs hashtables) #t]
|
||||||
|
[ip (rnrs io ports) #t]
|
||||||
|
[en (rnrs enums) #t]
|
||||||
|
[co (rnrs conditions) #t]
|
||||||
|
[ri (rnrs records inspection) #t]
|
||||||
|
[rp (rnrs records procedural) #t]
|
||||||
|
[rs (rnrs records syntactic) #t]
|
||||||
|
[$pairs (ikarus system $pairs) #f]
|
||||||
|
[$lists (ikarus system $lists) #f]
|
||||||
|
[$chars (ikarus system $chars) #f]
|
||||||
|
[$strings (ikarus system $strings) #f]
|
||||||
|
[$vectors (ikarus system $vectors) #f]
|
||||||
|
[$flonums (ikarus system $flonums) #f]
|
||||||
|
[$bignums (ikarus system $bignums) #f]
|
||||||
|
[$bytes (ikarus system $bytevectors) #f]
|
||||||
|
[$fx (ikarus system $fx) #f]
|
||||||
|
[$rat (ikarus system $ratnums) #f]
|
||||||
|
[$symbols (ikarus system $symbols) #f]
|
||||||
|
[$records (ikarus system $records) #f]
|
||||||
|
[$ports (ikarus system $ports) #f]
|
||||||
|
[$codes (ikarus system $codes) #f]
|
||||||
|
[$tcbuckets (ikarus system $tcbuckets) #f]
|
||||||
|
[$io (ikarus system $io) #f]
|
||||||
|
[$arg-list (ikarus system $arg-list) #f]
|
||||||
|
[$stack (ikarus system $stack) #f]
|
||||||
|
[$interrupts (ikarus system $interrupts) #f]
|
||||||
|
[$all (ikarus system $all) #f]
|
||||||
|
[$boot (ikarus system $bootstrap) #f]
|
||||||
|
))
|
||||||
|
|
||||||
|
|
||||||
|
#;(define library-legend2
|
||||||
'([i (ikarus) #t]
|
'([i (ikarus) #t]
|
||||||
[symbols (ikarus symbols) #t]
|
[symbols (ikarus symbols) #t]
|
||||||
[parameters (ikarus parameters) #t]
|
[parameters (ikarus parameters) #t]
|
||||||
|
|
@ -165,44 +283,6 @@
|
||||||
[$boot (ikarus system $bootstrap) #f]
|
[$boot (ikarus system $bootstrap) #f]
|
||||||
))
|
))
|
||||||
|
|
||||||
(define library-legend2
|
|
||||||
'([i (ikarus) #t]
|
|
||||||
[symbols (ikarus symbols) #t]
|
|
||||||
[parameters (ikarus parameters) #t]
|
|
||||||
[interaction (ikarus interaction) #t]
|
|
||||||
[ne (ikarus null-environment-5) #t]
|
|
||||||
[r (r6rs) #t]
|
|
||||||
[syncase (r6rs syntax-case) #t]
|
|
||||||
[mutable-pairs (r6rs mutable-pairs) #t]
|
|
||||||
[unicode (r6rs unicode) #t]
|
|
||||||
[rfl (r6rs arithmetic flonums) #t]
|
|
||||||
[ios (r6rs i/o simple) #t]
|
|
||||||
[ev (r6rs eval) #t]
|
|
||||||
[cm (chez modules) #t]
|
|
||||||
[$all (ikarus system $all) #f]
|
|
||||||
[$pairs (ikarus system $pairs) #f]
|
|
||||||
[$lists (ikarus system $lists) #f]
|
|
||||||
[$chars (ikarus system $chars) #f]
|
|
||||||
[$strings (ikarus system $strings) #f]
|
|
||||||
[$vectors (ikarus system $vectors) #f]
|
|
||||||
[$flonums (ikarus system $flonums) #f]
|
|
||||||
[$bignums (ikarus system $bignums) #f]
|
|
||||||
[$bytes (ikarus system $bytevectors) #f]
|
|
||||||
[$fx (ikarus system $fx) #f]
|
|
||||||
[$rat (ikarus system $ratnums) #f]
|
|
||||||
[$symbols (ikarus system $symbols) #f]
|
|
||||||
[$records (ikarus system $records) #f]
|
|
||||||
[$ports (ikarus system $ports) #f]
|
|
||||||
[$codes (ikarus system $codes) #f]
|
|
||||||
[$tcbuckets (ikarus system $tcbuckets) #f]
|
|
||||||
[$io (ikarus system $io) #f]
|
|
||||||
[$arg-list (ikarus system $arg-list) #f]
|
|
||||||
[$stack (ikarus system $stack) #f]
|
|
||||||
[$interrupts (ikarus system $interrupts) #f]
|
|
||||||
[$boot (ikarus system $bootstrap) #f]
|
|
||||||
))
|
|
||||||
|
|
||||||
|
|
||||||
(define bootstrap-collection
|
(define bootstrap-collection
|
||||||
(let ([ls (map
|
(let ([ls (map
|
||||||
(lambda (x)
|
(lambda (x)
|
||||||
|
|
@ -226,8 +306,8 @@
|
||||||
[set! i r ne]
|
[set! i r ne]
|
||||||
[foreign-call i]
|
[foreign-call i]
|
||||||
[quote i r ne]
|
[quote i r ne]
|
||||||
[syntax-case i syncase]
|
[syntax-case i sc]
|
||||||
[syntax i syncase]
|
[syntax i sc]
|
||||||
[lambda i r ne]
|
[lambda i r ne]
|
||||||
[case-lambda i r]
|
[case-lambda i r]
|
||||||
[type-descriptor i ]
|
[type-descriptor i ]
|
||||||
|
|
@ -243,8 +323,8 @@
|
||||||
[include i r]
|
[include i r]
|
||||||
[syntax-rules i r ne]
|
[syntax-rules i r ne]
|
||||||
[quasiquote i r ne]
|
[quasiquote i r ne]
|
||||||
[quasisyntax i syncase]
|
[quasisyntax i sc]
|
||||||
[with-syntax i syncase]
|
[with-syntax i sc]
|
||||||
[let i r ne]
|
[let i r ne]
|
||||||
[identifier-syntax i r]
|
[identifier-syntax i r]
|
||||||
[let* i r ne]
|
[let* i r ne]
|
||||||
|
|
@ -284,8 +364,8 @@
|
||||||
[pair? i r]
|
[pair? i r]
|
||||||
[car i r]
|
[car i r]
|
||||||
[cdr i r]
|
[cdr i r]
|
||||||
[set-car! i mutable-pairs]
|
[set-car! i mp]
|
||||||
[set-cdr! i mutable-pairs]
|
[set-cdr! i mp]
|
||||||
[caar i r]
|
[caar i r]
|
||||||
[cdar i r]
|
[cdar i r]
|
||||||
[cadr i r]
|
[cadr i r]
|
||||||
|
|
@ -353,21 +433,21 @@
|
||||||
[char>=? i r]
|
[char>=? i r]
|
||||||
[integer->char i r]
|
[integer->char i r]
|
||||||
[char->integer i r]
|
[char->integer i r]
|
||||||
[char-downcase i unicode]
|
[char-downcase i uc]
|
||||||
[char-upcase i unicode]
|
[char-upcase i uc]
|
||||||
[char-titlecase i unicode]
|
[char-titlecase i uc]
|
||||||
[char-foldcase i unicode]
|
[char-foldcase i uc]
|
||||||
[char-ci=? i unicode]
|
[char-ci=? i uc]
|
||||||
[char-ci<? i unicode]
|
[char-ci<? i uc]
|
||||||
[char-ci<=? i unicode]
|
[char-ci<=? i uc]
|
||||||
[char-ci>? i unicode]
|
[char-ci>? i uc]
|
||||||
[char-ci>=? i unicode]
|
[char-ci>=? i uc]
|
||||||
[char-alphabetic? i unicode]
|
[char-alphabetic? i uc]
|
||||||
[char-numeric? i unicode]
|
[char-numeric? i uc]
|
||||||
[char-whitespace? i r unicode]
|
[char-whitespace? i r uc]
|
||||||
[char-upper-case? i unicode]
|
[char-upper-case? i uc]
|
||||||
[char-lower-case? i unicode]
|
[char-lower-case? i uc]
|
||||||
[char-title-case? i unicode]
|
[char-title-case? i uc]
|
||||||
[string? i r]
|
[string? i r]
|
||||||
[string i r]
|
[string i r]
|
||||||
[make-string i r]
|
[make-string i r]
|
||||||
|
|
@ -380,17 +460,17 @@
|
||||||
[string<=? i r]
|
[string<=? i r]
|
||||||
[string>? i r]
|
[string>? i r]
|
||||||
[string>=? i r]
|
[string>=? i r]
|
||||||
[string-ci=? i unicode]
|
[string-ci=? i uc]
|
||||||
[string-ci<? i unicode]
|
[string-ci<? i uc]
|
||||||
[string-ci<=? i unicode]
|
[string-ci<=? i uc]
|
||||||
[string-ci>? i unicode]
|
[string-ci>? i uc]
|
||||||
[string-ci>=? i unicode]
|
[string-ci>=? i uc]
|
||||||
[substring i r]
|
[substring i r]
|
||||||
[string-copy i r]
|
[string-copy i r]
|
||||||
[string-append i r]
|
[string-append i r]
|
||||||
[string->list i r]
|
[string->list i r]
|
||||||
[list->string i r]
|
[list->string i r]
|
||||||
[string-foldcase i unicode]
|
[string-foldcase i uc]
|
||||||
[string-for-each i r]
|
[string-for-each i r]
|
||||||
[uuid i]
|
[uuid i]
|
||||||
[date-string i]
|
[date-string i]
|
||||||
|
|
@ -445,7 +525,6 @@
|
||||||
[utf8-bytevector->string i]
|
[utf8-bytevector->string i]
|
||||||
[native-endianness i]
|
[native-endianness i]
|
||||||
[$two-bignums i]
|
[$two-bignums i]
|
||||||
|
|
||||||
[fxior i]
|
[fxior i]
|
||||||
[fxand i]
|
[fxand i]
|
||||||
[fxxor i]
|
[fxxor i]
|
||||||
|
|
@ -463,11 +542,9 @@
|
||||||
[fixnum-width i]
|
[fixnum-width i]
|
||||||
[least-fixnum i]
|
[least-fixnum i]
|
||||||
[greatest-fixnum i]
|
[greatest-fixnum i]
|
||||||
|
|
||||||
[fx+/carry i]
|
[fx+/carry i]
|
||||||
[fx*/carry i]
|
[fx*/carry i]
|
||||||
[fx-/carry i]
|
[fx-/carry i]
|
||||||
|
|
||||||
[for-each i r]
|
[for-each i r]
|
||||||
[map i r]
|
[map i r]
|
||||||
[andmap i]
|
[andmap i]
|
||||||
|
|
@ -501,42 +578,39 @@
|
||||||
[fxlogxor i]
|
[fxlogxor i]
|
||||||
[fxlogor i]
|
[fxlogor i]
|
||||||
[fxlognot i]
|
[fxlognot i]
|
||||||
|
|
||||||
|
|
||||||
[bitwise-arithmetic-shift-right i]
|
[bitwise-arithmetic-shift-right i]
|
||||||
[bitwise-arithmetic-shift-left i]
|
[bitwise-arithmetic-shift-left i]
|
||||||
[bitwise-arithmetic-shift i]
|
[bitwise-arithmetic-shift i]
|
||||||
|
[fl=? i fl]
|
||||||
[fl=? i rfl]
|
[fl<? i fl]
|
||||||
[fl<? i rfl]
|
[fl<=? i fl]
|
||||||
[fl<=? i rfl]
|
[fl>? i fl]
|
||||||
[fl>? i rfl]
|
[fl>=? i fl]
|
||||||
[fl>=? i rfl]
|
[fl+ i fl]
|
||||||
[fl+ i rfl]
|
[fl* i fl]
|
||||||
[fl* i rfl]
|
[fl- i fl]
|
||||||
[fl- i rfl]
|
[fl/ i fl]
|
||||||
[fl/ i rfl]
|
[flmin i fl]
|
||||||
[flmin i rfl]
|
[flsqrt i fl]
|
||||||
[flsqrt i rfl]
|
[flzero? i fl]
|
||||||
[flzero? i rfl]
|
[flnegative? i fl]
|
||||||
[flnegative? i rfl]
|
[flpositive? i fl]
|
||||||
[flpositive? i rfl]
|
[flabs i fl]
|
||||||
[flabs i rfl]
|
[flmax i fl]
|
||||||
[flmax i rfl]
|
[flsin i fl]
|
||||||
[flsin i rfl]
|
[flcos i fl]
|
||||||
[flcos i rfl]
|
[fltan i fl]
|
||||||
[fltan i rfl]
|
[flasin i fl]
|
||||||
[flasin i rfl]
|
[flacos i fl]
|
||||||
[flacos i rfl]
|
[flatan i fl]
|
||||||
[flatan i rfl]
|
[flfloor i fl]
|
||||||
[flfloor i rfl]
|
[flround i fl]
|
||||||
[flround i rfl]
|
[flceiling i fl]
|
||||||
[flceiling i rfl]
|
[fltruncate i fl]
|
||||||
[fltruncate i rfl]
|
[flnumerator i fl]
|
||||||
[flnumerator i rfl]
|
[fldenominator i fl]
|
||||||
[fldenominator i rfl]
|
[flexp i fl]
|
||||||
[flexp i rfl]
|
[fllog i fl]
|
||||||
[fllog i rfl]
|
|
||||||
[fixnum->string i]
|
[fixnum->string i]
|
||||||
[string->flonum i]
|
[string->flonum i]
|
||||||
[- i r]
|
[- i r]
|
||||||
|
|
@ -687,7 +761,7 @@
|
||||||
[read i r]
|
[read i r]
|
||||||
[read-char i r]
|
[read-char i r]
|
||||||
[read-token i]
|
[read-token i]
|
||||||
[peek-char i ios]
|
[peek-char i is]
|
||||||
[unread-char i]
|
[unread-char i]
|
||||||
[newline i r]
|
[newline i r]
|
||||||
[printf i]
|
[printf i]
|
||||||
|
|
@ -744,20 +818,18 @@
|
||||||
[record-set! i]
|
[record-set! i]
|
||||||
[record-field-accessor i]
|
[record-field-accessor i]
|
||||||
[record-field-mutator i]
|
[record-field-mutator i]
|
||||||
[identifier? i syncase]
|
[identifier? i sc]
|
||||||
[syntax-error i syncase]
|
[syntax-error i sc]
|
||||||
[generate-temporaries i syncase]
|
[generate-temporaries i sc]
|
||||||
[free-identifier=? i syncase]
|
[free-identifier=? i sc]
|
||||||
[bound-identifier=? i syncase]
|
[bound-identifier=? i sc]
|
||||||
[syntax->datum i syncase]
|
[syntax->datum i sc]
|
||||||
[datum->syntax i syncase]
|
[datum->syntax i sc]
|
||||||
[make-variable-transformer i syncase]
|
[make-variable-transformer i sc]
|
||||||
[code? i]
|
[code? i]
|
||||||
[immediate? i]
|
[immediate? i]
|
||||||
[pointer-value i]
|
[pointer-value i]
|
||||||
|
|
||||||
[system i]
|
[system i]
|
||||||
|
|
||||||
[installed-libraries i]
|
[installed-libraries i]
|
||||||
[current-primitive-locations $boot]
|
[current-primitive-locations $boot]
|
||||||
[boot-library-expand $boot]
|
[boot-library-expand $boot]
|
||||||
|
|
@ -765,15 +837,12 @@
|
||||||
[current-library-collection $boot]
|
[current-library-collection $boot]
|
||||||
[library-name $boot]
|
[library-name $boot]
|
||||||
[find-library-by-name $boot]
|
[find-library-by-name $boot]
|
||||||
|
|
||||||
[$car $pairs]
|
[$car $pairs]
|
||||||
[$cdr $pairs]
|
[$cdr $pairs]
|
||||||
[$set-car! $pairs]
|
[$set-car! $pairs]
|
||||||
[$set-cdr! $pairs]
|
[$set-cdr! $pairs]
|
||||||
|
|
||||||
[$memq $lists]
|
[$memq $lists]
|
||||||
[$memv $lists]
|
[$memv $lists]
|
||||||
|
|
||||||
[$char? $chars]
|
[$char? $chars]
|
||||||
[$char= $chars]
|
[$char= $chars]
|
||||||
[$char< $chars]
|
[$char< $chars]
|
||||||
|
|
@ -782,20 +851,16 @@
|
||||||
[$char>= $chars]
|
[$char>= $chars]
|
||||||
[$char->fixnum $chars]
|
[$char->fixnum $chars]
|
||||||
[$fixnum->char $chars]
|
[$fixnum->char $chars]
|
||||||
|
|
||||||
[$make-string $strings]
|
[$make-string $strings]
|
||||||
[$string-ref $strings]
|
[$string-ref $strings]
|
||||||
[$string-set! $strings]
|
[$string-set! $strings]
|
||||||
[$string-length $strings]
|
[$string-length $strings]
|
||||||
|
|
||||||
[bytevector? i]
|
[bytevector? i]
|
||||||
|
|
||||||
[$make-bytevector $bytes]
|
[$make-bytevector $bytes]
|
||||||
[$bytevector-length $bytes]
|
[$bytevector-length $bytes]
|
||||||
[$bytevector-s8-ref $bytes]
|
[$bytevector-s8-ref $bytes]
|
||||||
[$bytevector-u8-ref $bytes]
|
[$bytevector-u8-ref $bytes]
|
||||||
[$bytevector-set! $bytes]
|
[$bytevector-set! $bytes]
|
||||||
|
|
||||||
[$flonum-u8-ref $flonums]
|
[$flonum-u8-ref $flonums]
|
||||||
[$make-flonum $flonums]
|
[$make-flonum $flonums]
|
||||||
[$flonum-set! $flonums]
|
[$flonum-set! $flonums]
|
||||||
|
|
@ -812,22 +877,18 @@
|
||||||
[$fl> $flonums]
|
[$fl> $flonums]
|
||||||
[$fl>= $flonums]
|
[$fl>= $flonums]
|
||||||
[$fixnum->flonum $flonums]
|
[$fixnum->flonum $flonums]
|
||||||
|
|
||||||
[$make-bignum $bignums]
|
[$make-bignum $bignums]
|
||||||
[$bignum-positive? $bignums]
|
[$bignum-positive? $bignums]
|
||||||
[$bignum-size $bignums]
|
[$bignum-size $bignums]
|
||||||
[$bignum-byte-ref $bignums]
|
[$bignum-byte-ref $bignums]
|
||||||
[$bignum-byte-set! $bignums]
|
[$bignum-byte-set! $bignums]
|
||||||
|
|
||||||
[$make-ratnum $rat]
|
[$make-ratnum $rat]
|
||||||
[$ratnum-n $rat]
|
[$ratnum-n $rat]
|
||||||
[$ratnum-d $rat]
|
[$ratnum-d $rat]
|
||||||
|
|
||||||
[$make-vector $vectors]
|
[$make-vector $vectors]
|
||||||
[$vector-length $vectors]
|
[$vector-length $vectors]
|
||||||
[$vector-ref $vectors]
|
[$vector-ref $vectors]
|
||||||
[$vector-set! $vectors]
|
[$vector-set! $vectors]
|
||||||
|
|
||||||
[$fxzero? $fx]
|
[$fxzero? $fx]
|
||||||
[$fxadd1 $fx]
|
[$fxadd1 $fx]
|
||||||
[$fxsub1 $fx]
|
[$fxsub1 $fx]
|
||||||
|
|
@ -848,7 +909,6 @@
|
||||||
[$fx* $fx]
|
[$fx* $fx]
|
||||||
[$fx- $fx]
|
[$fx- $fx]
|
||||||
[$fxinthash $fx]
|
[$fxinthash $fx]
|
||||||
|
|
||||||
[$make-symbol $symbols]
|
[$make-symbol $symbols]
|
||||||
[$symbol-unique-string $symbols]
|
[$symbol-unique-string $symbols]
|
||||||
[$symbol-value $symbols]
|
[$symbol-value $symbols]
|
||||||
|
|
@ -860,7 +920,6 @@
|
||||||
[$set-symbol-unique-string! $symbols]
|
[$set-symbol-unique-string! $symbols]
|
||||||
[$set-symbol-plist! $symbols]
|
[$set-symbol-plist! $symbols]
|
||||||
[$unbound-object? $symbols]
|
[$unbound-object? $symbols]
|
||||||
|
|
||||||
[base-rtd $records]
|
[base-rtd $records]
|
||||||
[$record-set! $records]
|
[$record-set! $records]
|
||||||
[$record-ref $records]
|
[$record-ref $records]
|
||||||
|
|
@ -869,7 +928,6 @@
|
||||||
[$make-record $records]
|
[$make-record $records]
|
||||||
[$record? $records]
|
[$record? $records]
|
||||||
[$record/rtd? $records]
|
[$record/rtd? $records]
|
||||||
|
|
||||||
[$make-port/input $ports]
|
[$make-port/input $ports]
|
||||||
[$make-port/output $ports]
|
[$make-port/output $ports]
|
||||||
[$port-handler $ports]
|
[$port-handler $ports]
|
||||||
|
|
@ -878,7 +936,6 @@
|
||||||
[$port-size $ports]
|
[$port-size $ports]
|
||||||
[$set-port-index! $ports]
|
[$set-port-index! $ports]
|
||||||
[$set-port-size! $ports]
|
[$set-port-size! $ports]
|
||||||
|
|
||||||
[$closure-code $codes]
|
[$closure-code $codes]
|
||||||
[$code->closure $codes]
|
[$code->closure $codes]
|
||||||
[$code-reloc-vector $codes]
|
[$code-reloc-vector $codes]
|
||||||
|
|
@ -889,7 +946,6 @@
|
||||||
[$code-set! $codes]
|
[$code-set! $codes]
|
||||||
[$set-code-annotation! $codes]
|
[$set-code-annotation! $codes]
|
||||||
[procedure-annotation i]
|
[procedure-annotation i]
|
||||||
|
|
||||||
[$make-tcbucket $tcbuckets]
|
[$make-tcbucket $tcbuckets]
|
||||||
[$tcbucket-key $tcbuckets]
|
[$tcbucket-key $tcbuckets]
|
||||||
[$tcbucket-val $tcbuckets]
|
[$tcbucket-val $tcbuckets]
|
||||||
|
|
@ -897,7 +953,6 @@
|
||||||
[$set-tcbucket-val! $tcbuckets]
|
[$set-tcbucket-val! $tcbuckets]
|
||||||
[$set-tcbucket-next! $tcbuckets]
|
[$set-tcbucket-next! $tcbuckets]
|
||||||
[$set-tcbucket-tconc! $tcbuckets]
|
[$set-tcbucket-tconc! $tcbuckets]
|
||||||
|
|
||||||
[$flush-output-port $io]
|
[$flush-output-port $io]
|
||||||
[$reset-input-port! $io]
|
[$reset-input-port! $io]
|
||||||
[$close-input-port $io]
|
[$close-input-port $io]
|
||||||
|
|
@ -907,10 +962,8 @@
|
||||||
[$read-char $io]
|
[$read-char $io]
|
||||||
[$peek-char $io]
|
[$peek-char $io]
|
||||||
[$unread-char $io]
|
[$unread-char $io]
|
||||||
|
|
||||||
[$arg-list $arg-list]
|
[$arg-list $arg-list]
|
||||||
[$collect-key $arg-list]
|
[$collect-key $arg-list]
|
||||||
|
|
||||||
[$$apply $stack]
|
[$$apply $stack]
|
||||||
[$fp-at-base $stack]
|
[$fp-at-base $stack]
|
||||||
[$primitive-call/cc $stack]
|
[$primitive-call/cc $stack]
|
||||||
|
|
@ -919,7 +972,6 @@
|
||||||
[$seal-frame-and-call $stack]
|
[$seal-frame-and-call $stack]
|
||||||
[$make-call-with-values-procedure $stack]
|
[$make-call-with-values-procedure $stack]
|
||||||
[$make-values-procedure $stack]
|
[$make-values-procedure $stack]
|
||||||
|
|
||||||
[$interrupted? $interrupts]
|
[$interrupted? $interrupts]
|
||||||
[$unset-interrupted! $interrupts]
|
[$unset-interrupted! $interrupts]
|
||||||
;;; the following must be defined but they don't have
|
;;; the following must be defined but they don't have
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue