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

Allow optional arguments with default in `cmdline', updated docs.

Browse Source
This commit is contained in:
Eli Barzilay 2010-11-12 11:30:32 -05:00
parent 4f36ce9635
commit c1e1c70dcf
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/racket/cmdline.rkt
View File

@ -140,6 +140,9 @@
[(arg . rest)
(identifier? #'arg)
(cons #'arg (loop #'rest))]
[([arg def] . rest)
(identifier? #'arg)
(cons #'[arg def] (loop #'rest))]
[arg
(identifier? #'arg)
(list #'arg)]
@ -151,7 +154,9 @@
(serror "#:args must not be followed by another keyword" (car lst)))
(with-syntax ([formals (car pieces)]
[formal-names (map (lambda (x)
(symbol->string (syntax-e x)))
(let ([d (syntax->datum x)])
(symbol->string
(if (pair? d) (car d) d))))
formal-names)]
[body (cdr pieces)])
(values (reverse accum)

8
collects/scribblings/reference/cmdline.scrbl
View File

@ -29,9 +29,11 @@
[finish-clause code:blank
(code:line #:args arg-formals body ...+)
(code:line #:handlers handlers-exprs)]
[arg-formals id
(id ...)
(id ...+ . id)]
[arg-formals rest-id
(arg ...)
(arg ...+ . rest-id)]
[arg id
[id default-expr]]
[handlers-exprs (code:line finish-expr arg-strings-expr)
(code:line finish-expr arg-strings-expr help-expr)
(code:line finish-expr arg-strings-expr help-expr