minor fix

This commit is contained in:
Koichi Nakamura 2021-01-05 21:47:18 +09:00
parent 921a5f8a23
commit f3acb2f93f

View file

@ -1839,6 +1839,7 @@ variable codegen-target
\ Parse command-line arguments.
: read-commandline-args ( -- )
s" no-codegen" codegen-target !
begin argc @ 1 > while
1 arg dup c@ '-' <> if drop exit then
dup s" --gen" 5 strn= if