steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove weird code

slava 2006-11-27 00:10:06 +00:00
parent 9942c80811
commit bbef01eee4
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
library/cli.factor
View File

@ -14,15 +14,6 @@ parser sequences strings ;
home ".factor-rc" path+ ?run-file home ".factor-rc" path+ ?run-file
] when ; ] when ;
TUPLE: bad-option name ;
M: bad-option error.
"Error: '-" write bad-option-name write
"' is not an acceptable command-line option" write ;
: good-option! ( name -- )
{ "user-init" "compile" "native-io" "cocoa" "null-stdio" "x11" "shell" }
member? [ "Bad option" print bye ] unless ;
: cli-var-param ( name value -- ) swap set-global ; : cli-var-param ( name value -- ) swap set-global ;
: cli-bool-param ( name -- ) "no-" ?head not cli-var-param ; : cli-bool-param ( name -- ) "no-" ?head not cli-var-param ;