conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed usage message

This commit is contained in:
Abdulaziz Ghuloum 2006-12-02 16:04:18 -05:00
parent 8642ac5305
commit 90ef531920
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lab/ikarusdoc
View File

@ -43,8 +43,8 @@
Prints all the comments matching Hash-Bar-token that are found Prints all the comments matching Hash-Bar-token that are found
in the files. |# in the files. |#
(define usage (define usage
(lambda (me?) (lambda ()
(printf "Usage: ~a token files ...\n" (or me? "find")) (printf "Usage: ikarusdoc token files ...\n")
(printf " Prints all multiline comments matching #|token<comment>|# from the files\n") (printf " Prints all multiline comments matching #|token<comment>|# from the files\n")
(exit 0))) (exit 0)))
@ -59,9 +59,9 @@
ls)))) ls))))
(let ([args (command-line-arguments)]) (let ([args (command-line-arguments)])
(when (null? args) (usage #f)) (when (null? args) (usage))
(let ([me (car args)] [args (cdr args)]) (let ([me (car args)] [args (cdr args)])
(when (null? args) (usage me)) (when (null? args) (usage))
(let ([tok (car args)] [files (cdr args)]) (let ([tok (car args)] [files (cdr args)])
(for-each (for-each
(lambda (file) (lambda (file)