From cdde57b2f11a6c28518aebed234b98ce5bd7131f Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 20 Aug 2009 12:55:05 +0200
Subject: [PATCH] eval-elisp uses primitive-eval

* lang/elisp/interface.scm (eval-elisp): Use primitive-eval, as we will
  be switching the evaluator soon.
---
 lang/elisp/interface.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lang/elisp/interface.scm b/lang/elisp/interface.scm
index fcd748f65..31864cc8e 100644
--- a/lang/elisp/interface.scm
+++ b/lang/elisp/interface.scm
@@ -20,7 +20,10 @@
 
 (define (eval-elisp x)
   "Evaluate the Elisp expression @var{x}."
-  (eval x the-elisp-module))
+  (save-module-excursion 
+   (lambda ()
+     (set-current-module the-elisp-module)
+     (primitive-eval x))))
 
 (define (translate-elisp x)
   "Translate the Elisp expression @var{x} to equivalent Scheme code."