* compile-time-core-eval is gone

2007-05-03 00:00:50 -04:00
parent 96b15b3d74
commit c780c192a1
2 changed files with 0 additions and 9 deletions
@@ -5290,15 +5290,6 @@
  (lambda (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)))

 ))