diff options
author | Andy Wingo <wingo@pobox.com> | 2009-08-20 12:55:05 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-08-20 18:52:50 +0200 |
commit | cdde57b2f11a6c28518aebed234b98ce5bd7131f (patch) | |
tree | 2c01a5c17bcaa0948cdc1c219f9f629e763ec398 | |
parent | 12136c7148485e1a32cc1c59797289f46706fd45 (diff) | |
download | guile-cdde57b2f11a6c28518aebed234b98ce5bd7131f.tar.gz |
eval-elisp uses primitive-eval
* lang/elisp/interface.scm (eval-elisp): Use primitive-eval, as we will
be switching the evaluator soon.
-rw-r--r-- | lang/elisp/interface.scm | 5 |
1 files changed, 4 insertions, 1 deletions
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." |