mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

eval-elisp uses primitive-eval

Browse source 
* lang/elisp/interface.scm (eval-elisp): Use primitive-eval, as we will
  be switching the evaluator soon.
This commit is contained in:
Andy Wingo 2009-08-20 12:55:05 +02:00
parent 12136c7148
commit cdde57b2f1
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lang/elisp/interface.scm
View file

@ -20,7 +20,10 @@
(define (eval-elisp x) (define (eval-elisp x)
"Evaluate the Elisp expression @var{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) (define (translate-elisp x)
"Translate the Elisp expression @var{x} to equivalent Scheme code." "Translate the Elisp expression @var{x} to equivalent Scheme code."