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

* moving on from (ikarus system handlers)

This commit is contained in:
Abdulaziz Ghuloum 2007-05-04 11:59:03 -04:00
parent 393ee8fbab
commit 28e5c26cee
2 changed files with 2 additions and 4 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/ikarus.handlers.ss
View File

@ -25,10 +25,8 @@
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 (scheme) (only (ikarus system) $interrupted? $unset-interrupted!)
$interrupted? (only (scheme) top-level-bound?))
$unset-interrupted!
top-level-bound?))
(define interrupt-handler (define interrupt-handler
(make-parameter (make-parameter