mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-02 23:50:47 +02:00
Code Activity

use guile eval for elisp tree-il

Browse source 
(Best-ability ChangeLog annotation added by Christopher Allan Webber.)

* module/language/elisp/boot.el (eval): Update with simplified definition.
* module/language/elisp/compile-tree-il.scm: Import "(language tree-il eval)".
  (eval-when-compile): Use eval-elisp.
  (defmacro): Use eval-tree-il.
* module/language/elisp/runtime.scm: Import "(language tree-il eval)".
  (eval-elisp): Use "eval" to evaluate compiled form within current-module.
This commit is contained in:
Robin Templeton 2014-08-18 04:01:39 -04:00 • committed by Christopher Allan Webber
parent 7bfd2ba132
commit 02bb985c98
3 changed files with 6 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/language/elisp/compile-tree-il.scm
View file

@ -30,6 +30,7 @@
#:use-module (srfi srfi-11)
#:use-module (srfi srfi-26)
#:use-module (ice-9 format)
#:use-module (language tree-il eval)
#:export (compile-tree-il
compile-progn
compile-eval-when-compile
@ -462,7 +463,7 @@
(map compile-expr-1 args))))
(defspecial eval-when-compile (loc args)
(make-const loc (compile `(progn ,@args) #:from 'elisp #:to 'value)))
(make-const loc (eval-elisp `(progn ,@args))))
(define toplevel? (make-fluid))
@ -786,7 +787,7 @@
body))))
(make-const loc name))))
(when (fluid-ref toplevel?)
(compile tree-il #:from 'tree-il #:to 'value))
(eval-tree-il tree-il))
tree-il)))
(else (report-error loc "bad defmacro" args))))