From: Robin Templeton <robin@terpri.org>
Date: Tue, 5 Aug 2014 03:06:26 +0000 (-0400)
Subject: compile-elisp fn
X-Git-Url: http://git.hcoop.net/bpt/guile.git/commitdiff_plain/cd6874439f42822b4fe7dff476ecff459b94fbab

compile-elisp fn
---

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)