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

removed some install-underflow-handler procedure that was not used

This commit is contained in:
Abdulaziz Ghuloum 2006-12-05 19:21:58 -05:00
parent 09c0ec0732
commit b8e595b6e6
4 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
lib/ikarus.boot
View File

Binary file not shown.

1
lib/libcompile.ss
View File

@ -188,7 +188,6 @@
;;; ;;;
[$make-call-with-values-procedure 0 value] [$make-call-with-values-procedure 0 value]
[$make-values-procedure 0 value] [$make-values-procedure 0 value]
[$install-underflow-handler 0 effect]
)) ))
(define (primitive-context x) (define (primitive-context x)

1
lib/libcontrol.ss
View File

@ -122,6 +122,5 @@
(primitive-set! 'call/cf call-with-current-frame) (primitive-set! 'call/cf call-with-current-frame)
(primitive-set! 'call/cc call/cc) (primitive-set! 'call/cc call/cc)
(primitive-set! 'dynamic-wind dynamic-wind) (primitive-set! 'dynamic-wind dynamic-wind)
;($install-underflow-handler)
(void)) (void))

8
lib/makefile.ss
View File

@ -46,11 +46,11 @@
vector-set! vector-length vector vector->list list->vector vector-set! vector-length vector vector->list list->vector
make-string string-ref string-set! string-length string make-string string-ref string-set! string-length string
list->string uuid string-append substring string=? string<? list->string uuid string-append substring string=? string<?
string<=? string>? string>=? remprop putprop getprop string<=? string>? string>=? remprop putprop getprop
property-list apply map for-each andmap ormap memq memv assq property-list apply map for-each andmap ormap memq memv assq
assv assoc eq? eqv? equal? reverse string->symbol assv assoc eq? eqv? equal? reverse string->symbol symbol->string
symbol->string oblist top-level-value set-top-level-value! oblist top-level-value set-top-level-value! top-level-bound?
top-level-bound? gensym gensym-count gensym-prefix print-gensym gensym gensym-count gensym-prefix print-gensym
gensym->unique-string call-with-values values make-parameter gensym->unique-string call-with-values values make-parameter
dynamic-wind display write print-graph fasl-write printf format dynamic-wind display write print-graph fasl-write printf format
print-error read-token read comment-handler error exit call/cc print-error read-token read comment-handler error exit call/cc