diff --git a/src/ikarus.boot b/src/ikarus.boot index 4556519..95e80a8 100644 Binary files a/src/ikarus.boot and b/src/ikarus.boot differ diff --git a/src/ikarus.handlers.ss b/src/ikarus.handlers.ss index 48d8c5f..12750d5 100644 --- a/src/ikarus.handlers.ss +++ b/src/ikarus.handlers.ss @@ -25,10 +25,8 @@ cdr-error fxadd1-error fxsub1-error cadr-error fx+-type-error fx+-types-error fx+-overflow-error $do-event) (import (except (ikarus) interrupt-handler) - (only (scheme) - $interrupted? - $unset-interrupted! - top-level-bound?)) + (only (ikarus system) $interrupted? $unset-interrupted!) + (only (scheme) top-level-bound?)) (define interrupt-handler (make-parameter