Improve command-line syntax.

This commit is contained in:
Dominik Pantůček 2023-03-14 21:10:18 +01:00
parent 0f9e5e2313
commit 84c5aac95e
2 changed files with 8 additions and 8 deletions

View file

@ -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.