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

* removed import of (scheme) from ikarus.handlers

This commit is contained in:
Abdulaziz Ghuloum 2007-05-06 18:21:13 -04:00
parent aebad6ece7
commit fcf401b076
2 changed files with 2 additions and 3 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.

5
src/ikarus.handlers.ss
View File

@ -25,8 +25,7 @@
cdr-error fxadd1-error fxsub1-error cadr-error fx+-type-error cdr-error fxadd1-error fxsub1-error cadr-error fx+-type-error
fx+-types-error fx+-overflow-error $do-event) fx+-types-error fx+-overflow-error $do-event)
(import (except (ikarus) interrupt-handler) (import (except (ikarus) interrupt-handler)
(only (ikarus system) $interrupted? $unset-interrupted!) (only (ikarus system) $interrupted? $unset-interrupted!))
(only (scheme) top-level-bound?))
(define interrupt-handler (define interrupt-handler
(make-parameter (make-parameter
@ -64,7 +63,7 @@
(lambda (x) (lambda (x)
(cond (cond
[(symbol? x) [(symbol? x)
(if (top-level-bound? x) (if (symbol-bound? x)
(error 'top-level-value "BUG in ~s" x) (error 'top-level-value "BUG in ~s" x)
(error 'top-level-value "~s is unbound" x))] (error 'top-level-value "~s is unbound" x))]
[else [else