* removed import of (scheme) from ikarus.fixnums.ss
This commit is contained in:
parent
ec4b28c09b
commit
0d03979d60
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -244,7 +244,7 @@
|
||||||
|
|
||||||
(library (ikarus fasl read)
|
(library (ikarus fasl read)
|
||||||
(export)
|
(export)
|
||||||
(import (scheme))
|
(import )
|
||||||
|
|
||||||
(define who 'fasl-read)
|
(define who 'fasl-read)
|
||||||
(define (assert-eq? x y)
|
(define (assert-eq? x y)
|
||||||
|
|
|
@ -4,11 +4,9 @@
|
||||||
fxremainder fxmodulo fxlogor fxlogand fxlogxor fxsll fxsra
|
fxremainder fxmodulo fxlogor fxlogand fxlogxor fxsll fxsra
|
||||||
fx= fx< fx<= fx> fx>= fixnum->string)
|
fx= fx< fx<= fx> fx>= fixnum->string)
|
||||||
(import
|
(import
|
||||||
(only (scheme) $fxadd1 $fxsub1 $fxlognot $fxzero? $fxquotient
|
(ikarus system $fx)
|
||||||
$fxmodulo $fx+ $fx- $fx* $fxlogor $fxlogand $fxlogxor
|
(ikarus system $chars)
|
||||||
$fxsll $fxsra $fx= $fx< $fx<= $fx> $fx>=
|
(ikarus system $strings)
|
||||||
$string-set!
|
|
||||||
$char->fixnum $fixnum->char)
|
|
||||||
(except (ikarus) fxzero? fxadd1 fxsub1 fxlognot fx+ fx- fx*
|
(except (ikarus) fxzero? fxadd1 fxsub1 fxlognot fx+ fx- fx*
|
||||||
fxquotient fxremainder fxmodulo fxlogor fxlogand
|
fxquotient fxremainder fxmodulo fxlogor fxlogand
|
||||||
fxlogxor fxsll fxsra fx= fx< fx<= fx> fx>=
|
fxlogxor fxsll fxsra fx= fx< fx<= fx> fx>=
|
||||||
|
|
Loading…
Reference in New Issue