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

Binary file not shown.

View File

@ -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)

View File

@ -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))

View File

@ -46,11 +46,11 @@
vector-set! vector-length vector vector->list list->vector
make-string string-ref string-set! string-length 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
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