1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 08:10:17 +02:00

eval is actually compile

* module/ice-9/boot-9.scm (eval): Here at the tail of boot-9, replace
  the root definition of `eval' with a procedure that will call
  `compile'.

* test-suite/tests/syntax.test ("top-level define"):
  ("internal define"): Run unmemoization tests in the interpreter, using
  primitive-eval.
This commit is contained in:
Andy Wingo 2009-08-20 14:33:38 +02:00
parent 2fb924f64f
commit afe5e6baa7
2 changed files with 30 additions and 24 deletions

View file

@ -3492,6 +3492,14 @@ module '(ice-9 q) '(make-q q-length))}."
;;; Replace the C evaluator with the compiler.
;;;
(define (eval x env)
((@ (system base compile) compile) x #:from 'scheme #:to 'value #:env env))
;;; Place the user in the guile-user module.
;;;