HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
use guile eval for elisp tree-il
[bpt/guile.git]
/
module
/
language
/
elisp
/
compile-tree-il.scm
diff --git
a/module/language/elisp/compile-tree-il.scm
b/module/language/elisp/compile-tree-il.scm
index
9f2b10c
..
3e4f74b
100644
(file)
--- a/
module/language/elisp/compile-tree-il.scm
+++ b/
module/language/elisp/compile-tree-il.scm
@@
-30,6
+30,7
@@
#:use-module (srfi srfi-11)
#:use-module (srfi srfi-26)
#:use-module (ice-9 format)
#: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
#: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)
(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))
(define toplevel? (make-fluid))
@@
-786,7
+787,7
@@
body))))
(make-const loc name))))
(when (fluid-ref toplevel?)
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))))
tree-il)))
(else (report-error loc "bad defmacro" args))))