From 5d351f0b9b77d0ba38e6da4604470472ab2ce165 Mon Sep 17 00:00:00 2001 From: BT Templeton Date: Fri, 10 Jun 2011 22:56:05 -0400 Subject: [PATCH] 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. --- module/language/elisp/compile-tree-il.scm | 10 ++-------- 1 file 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)))