summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBT Templeton <bpt@hcoop.net>2011-06-10 22:56:05 -0400
committerBT Templeton <bpt@hcoop.net>2011-11-22 15:04:12 -0500
commit5d351f0b9b77d0ba38e6da4604470472ab2ce165 (patch)
treee9f1b9f591faf7d8eaa26e9608224352c8c98bf9
parentadf8616fabbf3248cfbe4f075b5f2c02fed9e5c2 (diff)
downloadguile-5d351f0b9b77d0ba38e6da4604470472ab2ce165.tar.gz
remove void-checking cruft
* module/language/elisp/compile-tree-il.scm: Don't export `compile-without-void-checks', which was removed. Remove unused `disable-void-check' variable. Update comments.
-rw-r--r--module/language/elisp/compile-tree-il.scm10
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)))