* moving on from (ikarus system handlers)

2007-05-04 11:59:03 -04:00 · 2007-05-04 11:59:03 -04:00 · 28e5c26cee
parent 393ee8fbab
commit 28e5c26cee
2 changed files with 2 additions and 4 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- 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