mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-18 10:10:23 +02:00
Code Activity

compile-elisp fn

Browse source 
(Best-ability ChangeLog annotation added by Christine Lemmer-Webber.)

* module/language/elisp/runtime.scm (compile-elisp): New procedure.
This commit is contained in:
Robin Templeton 2014-08-04 23:06:26 -04:00 • committed by Christine Lemmer-Webber
parent 361db0dca8
commit 9ef10e8c75
No known key found for this signature in database
GPG key ID: 4BC025925FF8F4D3
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/language/elisp/runtime.scm
View file

@ -52,6 +52,7 @@
set-lexical-binding-mode set-lexical-binding-mode
log! log!
eval-elisp eval-elisp
compile-elisp
local-eval-elisp local-eval-elisp
make-lisp-string make-lisp-string
lisp-string?) lisp-string?)
@ -248,6 +249,10 @@
(define (eval-elisp form) (define (eval-elisp form)
(compile form #:from 'elisp #:to 'value)) (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! nil_ #nil)
(set-symbol-value! t_ #t) (set-symbol-value! t_ #t)