mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 03:54:12 +02:00
Code Activity

remove `bind-arg-lexical?'

Browse source 
* module/language/elisp/compile-tree-il.scm (bind-arg-lexical?): Remove.
  All callers changed to use `bind-lexically?'.
This commit is contained in:
BT Templeton 2011-07-09 17:08:29 -04:00
parent 5fa5bf7d10
commit d4cb18ad9c
1 changed files with 2 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -354,11 +354,6 @@
;;; split into those to be bound lexically and dynamically. Returned is ;;; split into those to be bound lexically and dynamically. Returned is
;;; as multiple values: required optional rest lexical dynamic ;;; as multiple values: required optional rest lexical dynamic
(define (bind-arg-lexical? arg)
(let ((always (fluid-ref always-lexical)))
(or (eq? always 'all)
(memq arg always))))
(define (split-lambda-arguments loc args) (define (split-lambda-arguments loc args)
(let iterate ((tail args) (let iterate ((tail args)
(mode 'required) (mode 'required)
@ -385,7 +380,7 @@
(not (null? (cddr tail)))) (not (null? (cddr tail))))
(report-error loc "expected exactly one symbol after &rest") (report-error loc "expected exactly one symbol after &rest")
(let* ((rest (cadr tail)) (let* ((rest (cadr tail))
(rest-lexical (bind-arg-lexical? rest)) (rest-lexical (bind-lexically? rest value-slot))
(final-required (reverse required)) (final-required (reverse required))
(final-optional (reverse optional)) (final-optional (reverse optional))
(final-lexical (reverse (if rest-lexical (final-lexical (reverse (if rest-lexical
@ -405,7 +400,7 @@
"expected symbol in argument list, got" "expected symbol in argument list, got"
(car tail)) (car tail))
(let* ((arg (car tail)) (let* ((arg (car tail))
(bind-lexical (bind-arg-lexical? arg)) (bind-lexical (bind-lexically? arg value-slot))
(new-lexical (if bind-lexical (new-lexical (if bind-lexical
(cons arg lexical) (cons arg lexical)
lexical)) lexical))