diff options
author | BT Templeton <bpt@hcoop.net> | 2011-06-10 22:56:05 -0400 |
---|---|---|
committer | BT Templeton <bpt@hcoop.net> | 2011-11-22 15:04:12 -0500 |
commit | 5d351f0b9b77d0ba38e6da4604470472ab2ce165 (patch) | |
tree | e9f1b9f591faf7d8eaa26e9608224352c8c98bf9 | |
parent | adf8616fabbf3248cfbe4f075b5f2c02fed9e5c2 (diff) | |
download | guile-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.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))) |