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

* added (ikarus system $apply) and removed import of (scheme) in 

ikarus.apply.ss
This commit is contained in:
Abdulaziz Ghuloum 2007-05-06 17:57:31 -04:00
parent 116b8c2227
commit adc4869540
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ikarus.apply.ss
View File

@ -3,7 +3,8 @@
(export apply)
(import
(except (ikarus) apply)
(only (scheme) $$apply $car $cdr $set-cdr!))
(ikarus system $pairs)
(ikarus system $apply))
(define apply
(let ()

BIN
src/ikarus.boot
View File

Binary file not shown.

5
src/makefile.ss
View File

@ -111,7 +111,7 @@
[$codes (ikarus system $codes)]
[$tcbuckets (ikarus system $tcbuckets)]
[$io (ikarus system $io)]
;[$lists (ikarus system $lists)]
[$apply (ikarus system $apply)]
;[$lists (ikarus system $lists)]
;[$lists (ikarus system $lists)]
;[$lists (ikarus system $lists)]
@ -531,12 +531,13 @@
[$read-char $io]
[$peek-char $io]
[$unread-char $io]
; (ikarus system $apply)
[$$apply $apply]
; (ikarus system)
[$forward-ptr? s ]
[$unbound-object? s ]
[$make-call-with-values-procedure s ]
[$make-values-procedure s ]
[$$apply s ]
[$arg-list s ]
[$interrupted? s ]
[$unset-interrupted! s ]