* 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:
parent
edc01b587b
commit
aa0d7341a2
|
@ -4,7 +4,7 @@
|
||||||
(import
|
(import
|
||||||
(except (ikarus) apply)
|
(except (ikarus) apply)
|
||||||
(ikarus system $pairs)
|
(ikarus system $pairs)
|
||||||
(ikarus system $apply))
|
(ikarus system $stack))
|
||||||
|
|
||||||
(define apply
|
(define apply
|
||||||
(let ()
|
(let ()
|
||||||
|
|
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -3,8 +3,7 @@
|
||||||
(library (ikarus control)
|
(library (ikarus control)
|
||||||
(export call/cf call/cc dynamic-wind exit)
|
(export call/cf call/cc dynamic-wind exit)
|
||||||
(import
|
(import
|
||||||
(only (scheme) $fp-at-base $current-frame $frame->continuation
|
(ikarus system $stack)
|
||||||
$seal-frame-and-call)
|
|
||||||
(except (ikarus) call/cf call/cc dynamic-wind exit))
|
(except (ikarus) call/cf call/cc dynamic-wind exit))
|
||||||
|
|
||||||
(define primitive-call/cf
|
(define primitive-call/cf
|
||||||
|
|
|
@ -111,9 +111,8 @@
|
||||||
[$codes (ikarus system $codes)]
|
[$codes (ikarus system $codes)]
|
||||||
[$tcbuckets (ikarus system $tcbuckets)]
|
[$tcbuckets (ikarus system $tcbuckets)]
|
||||||
[$io (ikarus system $io)]
|
[$io (ikarus system $io)]
|
||||||
[$apply (ikarus system $apply)]
|
|
||||||
[$arg-list (ikarus system $arg-list)]
|
[$arg-list (ikarus system $arg-list)]
|
||||||
;[$lists (ikarus system $lists)]
|
[$stack (ikarus system $stack)]
|
||||||
;[$lists (ikarus system $lists)]
|
;[$lists (ikarus system $lists)]
|
||||||
;[$lists (ikarus system $lists)]
|
;[$lists (ikarus system $lists)]
|
||||||
))
|
))
|
||||||
|
@ -531,21 +530,22 @@
|
||||||
[$read-char $io]
|
[$read-char $io]
|
||||||
[$peek-char $io]
|
[$peek-char $io]
|
||||||
[$unread-char $io]
|
[$unread-char $io]
|
||||||
; (ikarus system $apply)
|
; (ikarus system $arg-list)
|
||||||
[$$apply $apply]
|
|
||||||
[$arg-list $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)
|
; (ikarus system)
|
||||||
[$forward-ptr? s ]
|
[$forward-ptr? s ]
|
||||||
[$unbound-object? s ]
|
[$unbound-object? s ]
|
||||||
[$make-call-with-values-procedure s ]
|
|
||||||
[$make-values-procedure s ]
|
|
||||||
[$interrupted? s ]
|
[$interrupted? s ]
|
||||||
[$unset-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]
|
[$apply-nonprocedure-error-handler s]
|
||||||
[$incorrect-args-error-handler s]
|
[$incorrect-args-error-handler s]
|
||||||
[$multiple-values-error s]
|
[$multiple-values-error s]
|
||||||
|
|
Loading…
Reference in New Issue