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)) | ||||
| 
 | ||||
|  |  | |||
|  | @ -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 | ||||
|  |  | |||
		Loading…
	
		Reference in New Issue
	
	 Abdulaziz Ghuloum
						Abdulaziz Ghuloum