diff options
Diffstat (limited to 'src/clojure/contrib/command_line.clj')
| -rw-r--r-- | src/clojure/contrib/command_line.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clojure/contrib/command_line.clj b/src/clojure/contrib/command_line.clj index 4f4302f5..a323ee69 100644 --- a/src/clojure/contrib/command_line.clj +++ b/src/clojure/contrib/command_line.clj @@ -30,7 +30,7 @@ :else (if-let [found (key-data keybase)] (if (= \? (last (:sym found))) (recur r (assoc cmdmap (:sym found) true)) - (recur (rest r) (assoc cmdmap (:sym found) + (recur (next r) (assoc cmdmap (:sym found) (if (or (nil? r) (= \- (ffirst r))) (:default found) (first r))))) |