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

[bugfix] case doesn't compare string equality

This commit is contained in:
Yuichi Nishiwaki 2014-07-29 15:42:35 +09:00
parent ea0ebf5126
commit f09a27cd0a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
piclib/picrin/repl.scm
View File

@ -21,17 +21,17 @@
(display "\n")
(display "Options:\n")
(display " -e [program] run one liner script\n")
(display " -h show this help\n"))
(display " -h or --help show this help\n"))
(define (getopt)
(let ((args (cdr (command-line))))
(if (null? args)
#f
(case (car args)
(("-h")
(case (string->symbol (car args))
((-h --help)
(print-help)
(exit 0))
(("-e")
((-e)
(cadr args))
(else
(file->string (car args)))))))