mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

remove void-checking cruft

Browse source 
* 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.
This commit is contained in:
BT Templeton 2011-06-10 22:56:05 -04:00
parent adf8616fab
commit 5d351f0b9b
1 changed files with 2 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
module/language/elisp/compile-tree-il.scm
View file

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