Improve command-line syntax.
This commit is contained in:
parent
0f9e5e2313
commit
84c5aac95e
2 changed files with 8 additions and 8 deletions
|
@ -121,12 +121,10 @@
|
|||
(syntax-rules ()
|
||||
((_ opt help proc)
|
||||
(list (symbol->string 'opt) help proc))
|
||||
((_ opt help (args ...) body ...)
|
||||
((_ opt (args ...) help body ...)
|
||||
(list (symbol->string 'opt)
|
||||
help
|
||||
(lambda (args ...) body ...)))
|
||||
((_ opt help)
|
||||
(list (symbol->string 'opt) help 'help))))
|
||||
(lambda (args ...) body ...)))))
|
||||
|
||||
;; Simple syntax wrapper for command-line arguments specification and
|
||||
;; immediate parsing.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue