* current-eval is gone.

src/libcompile.ss

@@ -5286,17 +5286,9 @@
         (proc)))))
 
 
-(primitive-set! 'current-eval
-  (make-parameter 
-    compile
-    (lambda (f)
-      (unless (procedure? f)
-        (error 'current-eval "~s is not a procedure" f))
-      f)))
-;;;
 (primitive-set! 'eval
   (lambda (x)
-    ((current-eval) x)))
+    (compile x)))
 
 (primitive-set! 'compile-time-core-eval
   (make-parameter 

src/library-manager.ss

@@ -392,7 +392,6 @@
       [apply      apply-label      (core-prim . apply)]
       [values     values-label     (core-prim . values)]
       [call-with-values cwv-label  (core-prim . call-with-values)]
-      [current-eval current-eval-label (core-prim . current-eval)]
       [call/cc     call/cc-label   (core-prim . call/cc)]
       [call/cf     call/cf-label   (core-prim . call/cf)]
       [dynamic-wind dynamic-wind-label (core-prim . dynamic-wind)]

src/libtoplevel.ss

@@ -42,7 +42,6 @@
                     [else
                      (let-values ([(f* script a*) (f (cdr args))])
                        (values (cons (car args) f*) script a*))]))])
-    (current-eval compile)
     (cond
       [script ; no greeting, no cafe
        (command-line-arguments (cons script args))