* compile-time-core-eval is gone

2007-05-03 00:00:50 -04:00 · 2007-05-03 00:00:50 -04:00 · c780c192a1
parent 96b15b3d74
commit c780c192a1
2 changed files with 0 additions and 9 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- a/src/libcompile.ss
+++ b/src/libcompile.ss
@ -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)))

 ))