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

* moved misc things to (ikarus system $junkyard)

This commit is contained in:
Abdulaziz Ghuloum 2007-05-06 20:04:26 -04:00
parent 207654f779
commit eb5770e079
3 changed files with 27 additions and 27 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.

2
src/ikarus.handlers.ss
View File

@ -25,7 +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 $junkyard) $interrupted? $unset-interrupted!))
(define interrupt-handler (define interrupt-handler
(make-parameter (make-parameter

52
src/makefile.ss
View File

@ -114,7 +114,7 @@
[$io (ikarus system $io)] [$io (ikarus system $io)]
[$arg-list (ikarus system $arg-list)] [$arg-list (ikarus system $arg-list)]
[$stack (ikarus system $stack)] [$stack (ikarus system $stack)]
;[$lists (ikarus system $lists)] [$junkyard (ikarus system $junkyard)]
;[$lists (ikarus system $lists)] ;[$lists (ikarus system $lists)]
)) ))
@ -545,31 +545,31 @@
[$seal-frame-and-call $stack] [$seal-frame-and-call $stack]
[$make-call-with-values-procedure $stack] [$make-call-with-values-procedure $stack]
[$make-values-procedure $stack] [$make-values-procedure $stack]
; (ikarus system) ; (ikarus system $junkyard)
[$forward-ptr? s ] [$forward-ptr? $junkyard]
[$interrupted? s ] [$interrupted? $junkyard]
[$unset-interrupted! s ] [$unset-interrupted! $junkyard]
[$apply-nonprocedure-error-handler s] [$apply-nonprocedure-error-handler $junkyard]
[$incorrect-args-error-handler s] [$incorrect-args-error-handler $junkyard]
[$multiple-values-error s] [$multiple-values-error $junkyard]
[$debug s] [$debug $junkyard]
[$underflow-misaligned-error s] [$underflow-misaligned-error $junkyard]
[top-level-value-error s] [top-level-value-error $junkyard]
[car-error s] [car-error $junkyard]
[cdr-error s] [cdr-error $junkyard]
[fxadd1-error s] [fxadd1-error $junkyard]
[fxsub1-error s] [fxsub1-error $junkyard]
[cadr-error s] [cadr-error $junkyard]
[fx+-type-error s] [fx+-type-error $junkyard]
[fx+-types-error s] [fx+-types-error $junkyard]
[fx+-overflow-error s] [fx+-overflow-error $junkyard]
[$do-event s] [$do-event $junkyard]
[do-overflow s] [do-overflow $junkyard]
[do-overflow-words s] [do-overflow-words $junkyard]
[do-vararg-overflow s] [do-vararg-overflow $junkyard]
[collect s] [collect $junkyard]
[do-stack-overflow s] [do-stack-overflow $junkyard]
[syntax-dispatch s] [syntax-dispatch $junkyard]
)) ))
(define (verify-procedures-map) (define (verify-procedures-map)