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

* added a (ikarus system $stack) library and removed imports of 

(scheme) from ikarus.control.ss
* moved $$apply to (ikarus system $stack).
This commit is contained in:
Abdulaziz Ghuloum 2007-05-06 18:10:51 -04:00
parent edc01b587b
commit aa0d7341a2
4 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ikarus.apply.ss
View File

@ -4,7 +4,7 @@
(import
(except (ikarus) apply)
(ikarus system $pairs)
(ikarus system $apply))
(ikarus system $stack))
(define apply
(let ()

BIN
src/ikarus.boot
View File

Binary file not shown.

3
src/ikarus.control.ss
View File

@ -3,8 +3,7 @@
(library (ikarus control)
(export call/cf call/cc dynamic-wind exit)
(import
(only (scheme) $fp-at-base $current-frame $frame->continuation
$seal-frame-and-call)
(ikarus system $stack)
(except (ikarus) call/cf call/cc dynamic-wind exit))
(define primitive-call/cf

22
src/makefile.ss
View File

@ -111,9 +111,8 @@
[$codes (ikarus system $codes)]
[$tcbuckets (ikarus system $tcbuckets)]
[$io (ikarus system $io)]
[$apply (ikarus system $apply)]
[$arg-list (ikarus system $arg-list)]
;[$lists (ikarus system $lists)]
[$stack (ikarus system $stack)]
;[$lists (ikarus system $lists)]
;[$lists (ikarus system $lists)]
))
@ -531,21 +530,22 @@
[$read-char $io]
[$peek-char $io]
[$unread-char $io]
; (ikarus system $apply)
[$$apply $apply]
; (ikarus system $arg-list)
[$arg-list $arg-list]
; (ikarus system $stack)
[$$apply $stack]
[$fp-at-base $stack]
[$primitive-call/cc $stack]
[$frame->continuation $stack]
[$current-frame $stack]
[$seal-frame-and-call $stack]
[$make-call-with-values-procedure $stack]
[$make-values-procedure $stack]
; (ikarus system)
[$forward-ptr? s ]
[$unbound-object? s ]
[$make-call-with-values-procedure s ]
[$make-values-procedure s ]
[$interrupted? s ]
[$unset-interrupted! s ]
[$fp-at-base s ]
[$primitive-call/cc s ]
[$frame->continuation s ]
[$current-frame s ]
[$seal-frame-and-call s ]
[$apply-nonprocedure-error-handler s]
[$incorrect-args-error-handler s]
[$multiple-values-error s]