* compile-time-core-eval is gone
This commit is contained in:
		
							parent
							
								
									96b15b3d74
								
							
						
					
					
						commit
						c780c192a1
					
				
							
								
								
									
										
											BIN
										
									
								
								src/ikarus.boot
								
								
								
								
							
							
						
						
									
										
											BIN
										
									
								
								src/ikarus.boot
								
								
								
								
							
										
											Binary file not shown.
										
									
								
							| 
						 | 
					@ -5290,15 +5290,6 @@
 | 
				
			||||||
  (lambda (x)
 | 
					  (lambda (x)
 | 
				
			||||||
    (compile x)))
 | 
					    (compile x)))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
(primitive-set! 'compile-time-core-eval
 | 
					 | 
				
			||||||
  (make-parameter 
 | 
					 | 
				
			||||||
    (lambda (x) 
 | 
					 | 
				
			||||||
      (parameterize ([current-expand (lambda (x) x)])
 | 
					 | 
				
			||||||
        (compile x)))
 | 
					 | 
				
			||||||
    (lambda (f)
 | 
					 | 
				
			||||||
      (unless (procedure? f) 
 | 
					 | 
				
			||||||
        (error 'compile-time-core-eval "~s is not a procedure" f))
 | 
					 | 
				
			||||||
      f)))
 | 
					 | 
				
			||||||
 | 
					
 | 
				
			||||||
))
 | 
					))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue