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