summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRobin Templeton <robin@terpri.org>2014-08-04 23:06:26 -0400
committerChristine Lemmer-Webber <cwebber@dustycloud.org>2021-10-19 18:10:04 -0400
commit9ef10e8c75ccc8a1e9d6bdd6e57e686595324b6b (patch)
tree4c11d7a98c2b7d95a1e43899e0b1d8f7474fdcfa
parent361db0dca8eb4850bad23b71dddf120ed4772cf2 (diff)
downloadguile-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.scm5
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)