diff options
Diffstat (limited to 'module/language/elisp/compile-tree-il.scm')
| -rw-r--r-- | module/language/elisp/compile-tree-il.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/language/elisp/compile-tree-il.scm b/module/language/elisp/compile-tree-il.scm index 0e5e535d8..8eaf7bc01 100644 --- a/module/language/elisp/compile-tree-il.scm +++ b/module/language/elisp/compile-tree-il.scm @@ -31,6 +31,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 @@ -465,7 +466,7 @@ (defspecial eval-when-compile (loc args) (make-const loc (with-native-target (lambda () - (compile `(progn ,@args) #:from 'elisp #:to 'value))))) + (eval-elisp `(progn ,@args)))))) (define toplevel? (make-fluid)) @@ -791,7 +792,7 @@ (when (fluid-ref toplevel?) (with-native-target (lambda () - (compile tree-il #:from 'tree-il #:to 'value)))) + (eval-tree-il tree-il)))) tree-il))) (else (report-error loc "bad defmacro" args)))) |