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))))))
([]
(doseq [arg-group (make-groups *command-line-args*)]
(apply -main (or arg-group ["help"])))))
(apply -main (or (seq arg-group) ["help"])))))