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

11
src/ikarus.writer.ss
View File

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