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 "\n")
(display "Options:\n") (display "Options:\n")
(display " -e [program] run one liner script\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) (define (getopt)
(let ((args (cdr (command-line)))) (let ((args (cdr (command-line))))
(if (null? args) (if (null? args)
#f #f
(case (car args) (case (string->symbol (car args))
(("-h") ((-h --help)
(print-help) (print-help)
(exit 0)) (exit 0))
(("-e") ((-e)
(cadr args)) (cadr args))
(else (else
(file->string (car args))))))) (file->string (car args)))))))