From d4cb18ad9cf09f54552d82463acf1269a11a8764 Mon Sep 17 00:00:00 2001 From: BT Templeton Date: Sat, 9 Jul 2011 17:08:29 -0400 Subject: [PATCH] remove `bind-arg-lexical?' * module/language/elisp/compile-tree-il.scm (bind-arg-lexical?): Remove. All callers changed to use `bind-lexically?'. --- module/language/elisp/compile-tree-il.scm | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/module/language/elisp/compile-tree-il.scm b/module/language/elisp/compile-tree-il.scm index d259083b6..08cb0bdde 100644 --- a/module/language/elisp/compile-tree-il.scm +++ b/module/language/elisp/compile-tree-il.scm @@ -354,11 +354,6 @@ ;;; split into those to be bound lexically and dynamically. Returned is ;;; 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) (let iterate ((tail args) (mode 'required) @@ -385,7 +380,7 @@ (not (null? (cddr tail)))) (report-error loc "expected exactly one symbol after &rest") (let* ((rest (cadr tail)) - (rest-lexical (bind-arg-lexical? rest)) + (rest-lexical (bind-lexically? rest value-slot)) (final-required (reverse required)) (final-optional (reverse optional)) (final-lexical (reverse (if rest-lexical @@ -405,7 +400,7 @@ "expected symbol in argument list, got" (car tail)) (let* ((arg (car tail)) - (bind-lexical (bind-arg-lexical? arg)) + (bind-lexical (bind-lexically? arg value-slot)) (new-lexical (if bind-lexical (cons arg lexical) lexical))