removed some install-underflow-handler procedure that was not used
This commit is contained in:
parent
09c0ec0732
commit
b8e595b6e6
BIN
lib/ikarus.boot
BIN
lib/ikarus.boot
Binary file not shown.
|
@ -188,7 +188,6 @@
|
|||
;;;
|
||||
[$make-call-with-values-procedure 0 value]
|
||||
[$make-values-procedure 0 value]
|
||||
[$install-underflow-handler 0 effect]
|
||||
))
|
||||
|
||||
(define (primitive-context x)
|
||||
|
|
|
@ -122,6 +122,5 @@
|
|||
(primitive-set! 'call/cf call-with-current-frame)
|
||||
(primitive-set! 'call/cc call/cc)
|
||||
(primitive-set! 'dynamic-wind dynamic-wind)
|
||||
;($install-underflow-handler)
|
||||
(void))
|
||||
|
||||
|
|
|
@ -48,9 +48,9 @@
|
|||
list->string uuid string-append substring string=? string<?
|
||||
string<=? string>? string>=? remprop putprop getprop
|
||||
property-list apply map for-each andmap ormap memq memv assq
|
||||
assv assoc eq? eqv? equal? reverse string->symbol
|
||||
symbol->string oblist top-level-value set-top-level-value!
|
||||
top-level-bound? gensym gensym-count gensym-prefix print-gensym
|
||||
assv assoc eq? eqv? equal? reverse string->symbol symbol->string
|
||||
oblist top-level-value set-top-level-value! top-level-bound?
|
||||
gensym gensym-count gensym-prefix print-gensym
|
||||
gensym->unique-string call-with-values values make-parameter
|
||||
dynamic-wind display write print-graph fasl-write printf format
|
||||
print-error read-token read comment-handler error exit call/cc
|
||||
|
|
Loading…
Reference in New Issue