diff options
-rw-r--r-- | module/language/elisp/compile-tree-il.scm | 4 | ||||
-rw-r--r-- | module/language/elisp/runtime/function-slot.scm | 2 |
2 files changed, 6 insertions, 0 deletions
diff --git a/module/language/elisp/compile-tree-il.scm b/module/language/elisp/compile-tree-il.scm index ecdd9c90b..e9fcf9457 100644 --- a/module/language/elisp/compile-tree-il.scm +++ b/module/language/elisp/compile-tree-il.scm @@ -31,6 +31,7 @@ #:use-module (srfi srfi-26) #:export (compile-tree-il compile-progn + compile-eval-when-compile compile-if compile-defconst compile-defvar @@ -632,6 +633,9 @@ (defspecial progn (loc args) (make-sequence loc (map compile-expr args))) +(defspecial eval-when-compile (loc args) + (make-const loc (compile `(progn ,@args) #:from 'elisp #:to 'value))) + (defspecial if (loc args) (pmatch args ((,cond ,then . ,else) diff --git a/module/language/elisp/runtime/function-slot.scm b/module/language/elisp/runtime/function-slot.scm index a3969c0e1..641173d86 100644 --- a/module/language/elisp/runtime/function-slot.scm +++ b/module/language/elisp/runtime/function-slot.scm @@ -32,6 +32,7 @@ #:use-module ((language elisp compile-tree-il) #:select ((compile-progn . progn) + (compile-eval-when-compile . eval-when-compile) (compile-if . if) (compile-defconst . defconst) (compile-defvar . defvar) @@ -54,6 +55,7 @@ #:duplicates (last) ;; special operators #:re-export (progn + eval-when-compile if defconst defvar |