diff options
| author | Chouser <chouser@n01se.net> | 2009-11-13 23:17:25 -0500 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2009-11-13 23:23:44 -0500 |
| commit | ddd7bc2226927634dc0216554194877fa6f170e1 (patch) | |
| tree | 422495f69618e29c414d3fda20c93baac82df05a | |
| parent | 0b211b7e4c1b148d46acabc67e6bcb21791935b0 (diff) | |
command-line: revert 72a13bf
Clients have to provide their own --help defaults if that's what they want.
| -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 8a179c1d..466dd7a7 100644 --- a/src/clojure/contrib/command_line.clj +++ b/src/clojure/contrib/command_line.clj @@ -26,7 +26,7 @@ defaults (into {} (for [[_ {:keys [default sym]}] key-data :when default] [sym default]))] - (loop [[argkey & [argval :as r]] (if (seq args) args ["--help"]) + (loop [[argkey & [argval :as r]] args cmdmap (assoc defaults :cmdspec cmdspec rest-str [])] (if argkey (let [[_ & [keybase]] (re-find #"^--?(.*)" argkey)] |