diff options
| -rw-r--r-- | module/language/elisp/runtime.scm | 5 |
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) |