add -l option

This commit is contained in:
Sunrim KIM (keen) 2014-09-01 22:51:04 +09:00
parent b96d6fb0d4
commit 6e71dd3f1d
1 changed files with 4 additions and 0 deletions

View File

@ -14,6 +14,7 @@
(display "\n")
(display "Options:\n")
(display " -e [program] run one liner script\n")
(display " -l [file] load the file then enter repl\n")
(display " -h or --help show this help\n"))
(define (getopt)
@ -26,6 +27,8 @@
(exit 1))
((-e)
(values 'line (cadr args)))
((-l)
(values 'load (cadr args)))
(else
(values 'file (car args)))))))
@ -45,6 +48,7 @@
(lambda (type dat)
(case type
((repl) (repl))
((load) (load dat) (repl))
((line) (exec-line dat))
((file) (exec-file dat))))))