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

* removed import (scheme) from ikarus.lists.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-06 17:47:36 -04:00
parent 4afe70f770
commit fb63e58c6c
3 changed files with 12 additions and 9 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.

10
src/ikarus.lists.ss
View File

@ -4,11 +4,11 @@
last-pair memq memv member assq assv assoc
map for-each andmap ormap)
(import
(only (scheme) $car $cdr $fx+ $fxadd1 $fxsub1 $fxzero? $fx>=)
(except (ikarus) list? list list* make-list append reverse last-pair
length list-ref
memq memv member assq assv assoc
map for-each andmap ormap))
(ikarus system $fx)
(ikarus system $pairs)
(except (ikarus) list? list list* make-list append reverse
last-pair length list-ref memq memv member assq assv
assoc map for-each andmap ormap))
(define $memq
(lambda (x ls)

11
src/ikarus.writer.ss
View File

@ -4,10 +4,13 @@
(export write display format printf print-error error-handler
error)
(import
(only (scheme) $fixnum->char $char->fixnum $char= $char<=
$fx= $fx>= $fx+ $fxadd1 $car $cdr $forward-ptr?
$unbound-object?
$string-length $string-ref)
(ikarus system $chars)
(ikarus system $strings)
(ikarus system $fx)
(ikarus system $pairs)
(only (scheme)
$forward-ptr?
$unbound-object?)
(except (ikarus) write display format printf print-error
error-handler error))