Fix infinite loop in core/-main when called w/o args.

This commit is contained in:
Perry Trolard 2010-08-15 16:46:42 -05:00 committed by Phil Hagelberg
parent 5c6392a32f
commit a020b0cf7d

View file

@ -183,4 +183,4 @@
(System/exit value)))))) (System/exit value))))))
([] ([]
(doseq [arg-group (make-groups *command-line-args*)] (doseq [arg-group (make-groups *command-line-args*)]
(apply -main (or arg-group ["help"]))))) (apply -main (or (seq arg-group) ["help"])))))