diff options
-rw-r--r-- | module/language/elisp/compile-tree-il.scm | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/module/language/elisp/compile-tree-il.scm b/module/language/elisp/compile-tree-il.scm index 0df21c7e6..b7a9177b7 100644 --- a/module/language/elisp/compile-tree-il.scm +++ b/module/language/elisp/compile-tree-il.scm @@ -41,7 +41,6 @@ compile-let* compile-lexical-let* compile-flet* - compile-without-void-checks compile-with-always-lexical compile-guile-ref compile-guile-primitive @@ -61,10 +60,6 @@ (define bindings-data (make-fluid)) -;;; Store for which symbols (or all/none) void checks are disabled. - -(define disable-void-check (make-fluid)) - ;;; Store which symbols (or all/none) should always be bound lexically, ;;; even with ordinary let and as lambda arguments. @@ -612,8 +607,8 @@ (make-const loc expr))) ;;; Temporarily update a list of symbols that are handled specially -;;; (disabled void check or always lexical) for compiling body. We need -;;; to handle special cases for already all / set to all and the like. +;;; (e.g., always lexical) for compiling body. We need to handle special +;;; cases for already all / set to all and the like. (define (with-added-symbols loc fluid syms body) (if (null? body) @@ -939,7 +934,6 @@ (define (compile-tree-il expr env opts) (values (with-fluids ((bindings-data (make-bindings)) - (disable-void-check '()) (always-lexical '())) (process-options! opts) (let ((compiled (compile-expr expr))) |