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

* libhandlers librarified

This commit is contained in:
Abdulaziz Ghuloum 2007-04-30 01:06:00 -04:00
parent 163ac8e281
commit 2fe1943872
4 changed files with 8 additions and 2 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.

6
src/libhandlers.ss
View File

@ -1,4 +1,8 @@
(library (ikarus handlers)
(export)
(import (scheme))
(primitive-set! 'make-parameter (primitive-set! 'make-parameter
(case-lambda (case-lambda
[(x) [(x)
@ -105,4 +109,4 @@
((interrupt-handler))) ((interrupt-handler)))
(display "Engine Expired\n" (console-output-port))))) (display "Engine Expired\n" (console-output-port)))))
)

2
src/syntax.ss
View File

@ -829,6 +829,8 @@
[primitive-ref primitive-ref-label (core-prim . primitive-ref)] [primitive-ref primitive-ref-label (core-prim . primitive-ref)]
[$$apply $$apply-label (core-prim . $$apply)] [$$apply $$apply-label (core-prim . $$apply)]
[$arg-list $arg-list-label (core-prim . $arg-list)] [$arg-list $arg-list-label (core-prim . $arg-list)]
[$interrupted? $interrupted?-label (core-prim . $interrupted?)]
[$unset-interrupted! $unset-interrupted!-label (core-prim . $unset-interrupted!)]
[$fp-at-base $fp-at-base-label (core-prim . $fp-at-base)] [$fp-at-base $fp-at-base-label (core-prim . $fp-at-base)]
[$primitive-call/cc $primitive-call/cc-label (core-prim . $primitive-call/cc)] [$primitive-call/cc $primitive-call/cc-label (core-prim . $primitive-call/cc)]
[$frame->continuation $frame->continuation-label (core-prim . $frame->continuation)] [$frame->continuation $frame->continuation-label (core-prim . $frame->continuation)]