From 3a14aad615a79cee281912afdc5729c385d959fd Mon Sep 17 00:00:00 2001 From: Calvin Rose Date: Mon, 2 Dec 2019 18:34:08 -0600 Subject: [PATCH] Address issue #205. --- src/boot/boot.janet | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/boot/boot.janet b/src/boot/boot.janet index 9418e60d..c6d48bcd 100644 --- a/src/boot/boot.janet +++ b/src/boot/boot.janet @@ -2138,7 +2138,7 @@ (if-let [jp (os/getenv "JANET_HEADERPATH")] (setdyn :headerpath jp)) # Flag handlers - (def handlers :private + (def handlers {"h" (fn [&] (print "usage: " (dyn :executable "janet") " [options] script args...") (print @@ -2206,7 +2206,7 @@ (while (< i lenargs) (def arg (in args i)) (if (and *handleopts* (= "-" (string/slice arg 0 1))) - (+= i (dohandler (string/slice arg 1 2) i)) + (+= i (dohandler (string/slice arg 1) i)) (do (set *no-file* false) (dofile arg :prefix "" :exit *exit-on-error* :evaluator evaluator)