cwebber pushed a commit to branch wip-elisp-rebased
in repository guile.
commit 2922c4e9a613418f62d7a2e7980d4db8273e20d6
Author: Robin Templeton <[email protected]>
AuthorDate: Mon Aug 4 23:06:26 2014 -0400
compile-elisp fn
(Best-ability ChangeLog annotation added by Christopher Allan Webber.)
* module/language/elisp/runtime.scm (compile-elisp): New procedure.
---
module/language/elisp/runtime.scm | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/module/language/elisp/runtime.scm
b/module/language/elisp/runtime.scm
index dba2a54..d6d4f70 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)
