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) (export apply)
(import (import
(except (ikarus) apply) (except (ikarus) apply)
(only (scheme) $$apply $car $cdr $set-cdr!)) (ikarus system $pairs)
(ikarus system $apply))
(define apply (define apply
(let () (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)] [$codes (ikarus system $codes)]
[$tcbuckets (ikarus system $tcbuckets)] [$tcbuckets (ikarus system $tcbuckets)]
[$io (ikarus system $io)] [$io (ikarus system $io)]
;[$lists (ikarus system $lists)] [$apply (ikarus system $apply)]
;[$lists (ikarus system $lists)] ;[$lists (ikarus system $lists)]
;[$lists (ikarus system $lists)] ;[$lists (ikarus system $lists)]
;[$lists (ikarus system $lists)] ;[$lists (ikarus system $lists)]
@ -531,12 +531,13 @@
[$read-char $io] [$read-char $io]
[$peek-char $io] [$peek-char $io]
[$unread-char $io] [$unread-char $io]
; (ikarus system $apply)
[$$apply $apply]
; (ikarus system) ; (ikarus system)
[$forward-ptr? s ] [$forward-ptr? s ]
[$unbound-object? s ] [$unbound-object? s ]
[$make-call-with-values-procedure s ] [$make-call-with-values-procedure s ]
[$make-values-procedure s ] [$make-values-procedure s ]
[$$apply s ]
[$arg-list s ] [$arg-list s ]
[$interrupted? s ] [$interrupted? s ]
[$unset-interrupted! s ] [$unset-interrupted! s ]