eval is actually compile

[bpt/guile.git] / module / ice-9 / boot-9.scm

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index a3a1e03..ead175d 100644 (file)
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -3492,6 +3492,14 @@ module '(ice-9 q) '(make-q q-length))}."
 
 \f
 
+;;; Replace the C evaluator with the compiler.
+;;;
+
+(define (eval x env)
+  ((@ (system base compile) compile) x #:from 'scheme #:to 'value #:env env))
+
+\f
+
 ;;; Place the user in the guile-user module.
 ;;;