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

* libcontrol librarified

This commit is contained in:
Abdulaziz Ghuloum 2007-04-30 01:02:08 -04:00
parent e373daaf13
commit 163ac8e281
3 changed files with 11 additions and 1 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.

7
src/libcontrol.ss
View File

@ -1,4 +1,9 @@
(library (ikarus control)
(export)
(import (scheme))
;(let ()
(let ()
(define call-with-current-frame
(lambda (f)
@ -94,4 +99,4 @@
(primitive-set! 'call/cc call/cc)
(primitive-set! 'dynamic-wind dynamic-wind)
(void))
)

5
src/syntax.ss
View File

@ -829,6 +829,11 @@
[primitive-ref primitive-ref-label (core-prim . primitive-ref)]
[$$apply $$apply-label (core-prim . $$apply)]
[$arg-list $arg-list-label (core-prim . $arg-list)]
[$fp-at-base $fp-at-base-label (core-prim . $fp-at-base)]
[$primitive-call/cc $primitive-call/cc-label (core-prim . $primitive-call/cc)]
[$frame->continuation $frame->continuation-label (core-prim . $frame->continuation)]
[$current-frame $current-frame-label (core-prim . $current-frame)]
[$seal-frame-and-call $seal-frame-and-call-label (core-prim . $seal-frame-and-call)]
))
(define make-scheme-rib
(lambda ()