guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 16/36: compile-elisp fn


From: Christopher Allan Webber
Subject: [Guile-commits] 16/36: compile-elisp fn
Date: Tue, 19 Oct 2021 17:59:36 -0400 (EDT)

cwebber pushed a commit to branch wip-elisp-rebased
in repository guile.

commit 2922c4e9a613418f62d7a2e7980d4db8273e20d6
Author: Robin Templeton <robin@terpri.org>
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)
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]