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

* removed the junkyard library since everything there is not needed 

* by the user.
This commit is contained in:
Abdulaziz Ghuloum 2007-05-06 20:18:36 -04:00
parent a0c81d9ce7
commit 3b5fe561ea
2 changed files with 25 additions and 24 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.

49
src/makefile.ss
View File

@ -113,7 +113,6 @@
[$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)]
[$junkyard (ikarus system $junkyard)]
[$interrupts (ikarus system $interrupts)] [$interrupts (ikarus system $interrupts)]
)) ))
@ -547,29 +546,31 @@
; (ikarus system $interrupts) ; (ikarus system $interrupts)
[$interrupted? $interrupts] [$interrupted? $interrupts]
[$unset-interrupted! $interrupts] [$unset-interrupted! $interrupts]
; (ikarus system $junkyard) ;;; the following must be defined but they don't have
[$forward-ptr? $interrupts] ;;; to reside in any library since they're here so that
[$apply-nonprocedure-error-handler $junkyard] ;;; the compiler can target them. They're not usable
[$incorrect-args-error-handler $junkyard] ;;; by the end user.
[$multiple-values-error $junkyard] [$apply-nonprocedure-error-handler ]
[$debug $junkyard] [$incorrect-args-error-handler ]
[$underflow-misaligned-error $junkyard] [$multiple-values-error ]
[top-level-value-error $junkyard] [$debug ]
[car-error $junkyard] [$underflow-misaligned-error ]
[cdr-error $junkyard] [top-level-value-error ]
[fxadd1-error $junkyard] [car-error ]
[fxsub1-error $junkyard] [cdr-error ]
[cadr-error $junkyard] [fxadd1-error ]
[fx+-type-error $junkyard] [fxsub1-error ]
[fx+-types-error $junkyard] [cadr-error ]
[fx+-overflow-error $junkyard] [fx+-type-error ]
[$do-event $junkyard] [fx+-types-error ]
[do-overflow $junkyard] [fx+-overflow-error ]
[do-overflow-words $junkyard] [$do-event ]
[do-vararg-overflow $junkyard] [do-overflow ]
[collect $junkyard] [do-overflow-words ]
[do-stack-overflow $junkyard] [do-vararg-overflow ]
[syntax-dispatch $junkyard] [collect ]
[do-stack-overflow ]
[syntax-dispatch ]
)) ))
(define (verify-procedures-map) (define (verify-procedures-map)