core: Add garbage collector/jam collector experiment.

[mes.git] / define.c

diff --git a/define.c b/define.c
index 50f41eb373640edb81f693cde96b373f81cd5a70..e068772195426dd60231a924ca0d246467992b0f 100644 (file)
--- a/define.c
+++ b/define.c
@@ -25,12 +25,12 @@ define_env (scm *x, scm *a)
   scm *e;
   scm *name = cadr (x);
   if (name->type != PAIR)
-    e = builtin_eval (caddr (x), cons (cons (cadr (x), cadr (x)), a));
+    e = eval_env (caddr (x), cons (cons (cadr (x), cadr (x)), a));
   else {
     name = car (name);
     scm *p = pairlis (cadr (x), cadr (x), a);
     cache_invalidate_range (p, a);
-    e = builtin_eval (make_lambda (cdadr (x), cddr (x)), p);
+    e = eval_env (make_lambda (cdadr (x), cddr (x)), p);
   }
   if (eq_p (car (x), &symbol_define_macro) == &scm_t)
     e = make_macro (name, e);