diff options
author | Robin Templeton <robin@terpri.org> | 2014-08-04 23:06:26 -0400 |
---|---|---|
committer | Christine Lemmer-Webber <cwebber@dustycloud.org> | 2021-10-19 18:10:04 -0400 |
commit | 9ef10e8c75ccc8a1e9d6bdd6e57e686595324b6b (patch) | |
tree | 4c11d7a98c2b7d95a1e43899e0b1d8f7474fdcfa | |
parent | 361db0dca8eb4850bad23b71dddf120ed4772cf2 (diff) | |
download | guile-9ef10e8c75ccc8a1e9d6bdd6e57e686595324b6b.tar.gz |
compile-elisp fn
(Best-ability ChangeLog annotation added by Christine Lemmer-Webber.)
* module/language/elisp/runtime.scm (compile-elisp): New procedure.
-rw-r--r-- | module/language/elisp/runtime.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/module/language/elisp/runtime.scm b/module/language/elisp/runtime.scm index dba2a5476..d6d4f701f 100644 --- a/module/language/elisp/runtime.scm +++ b/module/language/elisp/runtime.scm @@ -52,6 +52,7 @@ set-lexical-binding-mode log! eval-elisp + compile-elisp local-eval-elisp make-lisp-string lisp-string?) @@ -248,6 +249,10 @@ (define (eval-elisp form) (compile form #:from 'elisp #:to 'value)) +(define (compile-elisp form) + (compile (compile form #:from 'elisp #:to 'bytecode) + #:from 'bytecode #:to 'value)) + (set-symbol-value! nil_ #nil) (set-symbol-value! t_ #t) |