suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

svn: r1058

Browse Source
This commit is contained in:
Eli Barzilay 2005-10-13 01:53:32 +00:00
parent dfbc4c9baa
commit 76640f4c6c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/swindle/base.ss
View File

@ -249,7 +249,9 @@
(string-append ":" (symbol->string (syntax-object->datum var)))) (string-append ":" (symbol->string (syntax-object->datum var))))
k k)) k k))
(syntax-case 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 default) (identifier? #'var) (list #'var (key #'var) #'default)]
[(var) (identifier? #'var) (list #'var (key #'var) #'#f)] [(var) (identifier? #'var) (list #'var (key #'var) #'#f)]
[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)]) (filter-out-keys '#,(map cadr keys) #,all-keys)])
#'())) #'()))
expr0 expr ...)))] expr0 expr ...)))]
;; common cases: no optional, keyword, or otherfancy stuff ;; common cases: no optional, keyword, or other fancy stuff
[(null? vars) [(null? vars)
(quasisyntax/loc stx (quasisyntax/loc stx
(lambda #,(or rest #'()) expr0 expr ...))] (lambda #,(or rest #'()) expr0 expr ...))]