conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* removed import of (scheme) from ikarus.fixnums.ss

This commit is contained in:
Abdulaziz Ghuloum 2007-05-06 18:13:57 -04:00
parent ec4b28c09b
commit 0d03979d60
3 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

2
src/ikarus.fasl.ss
View File

@ -244,7 +244,7 @@
(library (ikarus fasl read)
(export)
(import (scheme))
(import )
(define who 'fasl-read)
(define (assert-eq? x y)

8
src/ikarus.fixnums.ss
View File

@ -4,11 +4,9 @@
fxremainder fxmodulo fxlogor fxlogand fxlogxor fxsll fxsra
fx= fx< fx<= fx> fx>= fixnum->string)
(import
(only (scheme) $fxadd1 $fxsub1 $fxlognot $fxzero? $fxquotient
$fxmodulo $fx+ $fx- $fx* $fxlogor $fxlogand $fxlogxor
$fxsll $fxsra $fx= $fx< $fx<= $fx> $fx>=
$string-set!
$char->fixnum $fixnum->char)
(ikarus system $fx)
(ikarus system $chars)
(ikarus system $strings)
(except (ikarus) fxzero? fxadd1 fxsub1 fxlognot fx+ fx- fx*
fxquotient fxremainder fxmodulo fxlogor fxlogand
fxlogxor fxsll fxsra fx= fx< fx<= fx> fx>=