diff --git a/src/ikarus.boot b/src/ikarus.boot index 063e331..6563e53 100644 Binary files a/src/ikarus.boot and b/src/ikarus.boot differ diff --git a/src/libhandlers.ss b/src/libhandlers.ss index 801455e..4149cbb 100644 --- a/src/libhandlers.ss +++ b/src/libhandlers.ss @@ -1,4 +1,8 @@ +(library (ikarus handlers) + (export) + (import (scheme)) + (primitive-set! 'make-parameter (case-lambda [(x) @@ -105,4 +109,4 @@ ((interrupt-handler))) (display "Engine Expired\n" (console-output-port))))) - +) diff --git a/src/makefile.ss b/src/makefile.ss index c5dc0a3..5554d3c 100755 --- a/src/makefile.ss +++ b/src/makefile.ss @@ -229,7 +229,7 @@ (define scheme-library-files '( ["libhandlers.ss" "libhandlers.fasl" p0 onepass] - ["libcontrol.ss" "libcontrol.fasl" p0 onepass] + ["libcontrol.ss" "libcontrol.fasl" p0 onepass] ["libcollect.ss" "libcollect.fasl" p0 onepass] ["librecord.ss" "librecord.fasl" p0 onepass] ["libcxr.ss" "libcxr.fasl" p0 onepass] diff --git a/src/syntax.ss b/src/syntax.ss index 78a569d..b640225 100644 --- a/src/syntax.ss +++ b/src/syntax.ss @@ -829,6 +829,8 @@ [primitive-ref primitive-ref-label (core-prim . primitive-ref)] [$$apply $$apply-label (core-prim . $$apply)] [$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)] [$primitive-call/cc $primitive-call/cc-label (core-prim . $primitive-call/cc)] [$frame->continuation $frame->continuation-label (core-prim . $frame->continuation)]