From 76640f4c6cf073d0860b274ba8484a840caa619f Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 13 Oct 2005 01:53:32 +0000 Subject: [PATCH] svn: r1058 --- collects/swindle/base.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/swindle/base.ss b/collects/swindle/base.ss index 19d37fcb66..52827e21f4 100644 --- a/collects/swindle/base.ss +++ b/collects/swindle/base.ss @@ -249,7 +249,9 @@ (string-append ":" (symbol->string (syntax-object->datum var)))) k k)) (syntax-case k () - [(var key default) (identifier? #'var) (list #'var #'key #'default)] + [(var key default) + (and (identifier? #'var) (syntax-keyword? #'key)) + (list #'var #'key #'default)] [(var default) (identifier? #'var) (list #'var (key #'var) #'default)] [(var) (identifier? #'var) (list #'var (key #'var) #'#f)] [var (identifier? #'var) (list #'var (key #'var) #'#f)] @@ -484,7 +486,7 @@ (filter-out-keys '#,(map cadr keys) #,all-keys)]) #'())) expr0 expr ...)))] - ;; common cases: no optional, keyword, or otherfancy stuff + ;; common cases: no optional, keyword, or other fancy stuff [(null? vars) (quasisyntax/loc stx (lambda #,(or rest #'()) expr0 expr ...))]