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

4
collects/swindle/base.ss
View File

@ -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)]