command-line: strip all leading - from parameters.

this supports ./factor --help

but also

./factor ------------help

when you really need help

diff --git a/basis/command-line/command-line.factor b/basis/command-line/command-line.factor
index 39217ce61dd1683a47b5b372ca1f2077f4b50aa7..a90f7f5ad1c369d388b994639fc06d20cbd7fb35 100644 (file)
--- a/basis/command-line/command-line.factor
+++ b/basis/command-line/command-line.factor
@@ -66,6 +66,7 @@ SYMBOL: command-line
 : (parse-command-line) ( args -- )
     [
         unclip "-" ?head [
+            [ CHAR: - = ] trim-head
             [ param ] [ "run=" head? ] bi
             [ command-line set ]
             [ (parse-command-line) ] if