diff options
| author | Chouser <chouser@n01se.net> | 2009-02-17 22:08:16 +0000 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2009-02-17 22:08:16 +0000 |
| commit | 81b9e71effbaf6aa2945cd684802d87c762cdcdd (patch) | |
| tree | 716012900fd73190e11d8869a4efbc44fa231f7a /src/clojure/contrib/command_line.clj | |
| parent | d7695aa72adcdbdffe396b87d8f0a2dea363ffc1 (diff) | |
Batch of changes for lazier clojure.
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))))) |