--- gforth/Attic/kernal.fs 1995/03/14 19:01:43 1.33 +++ gforth/Attic/kernal.fs 1995/04/14 18:56:55 1.34 @@ -1464,16 +1464,19 @@ Variable argc r> >tib +! 2 EXIT THEN ." Unknown option: " type cr 2drop 1 ; -: process-args ( -- ) >tib @ >r +: process-args ( -- ) + >tib @ >r + true to script? argc @ 1 ?DO I arg over c@ [char] - <> IF - true to script? included false to script? 1 + included 1 ELSE I 1+ arg do-option THEN +LOOP + false to script? r> >tib ! ; Defer 'cold ' noop IS 'cold