gforth/kernel/args.fs - diff

Return to args.fs CVS log

Up to [gforth] / gforth / kernel

version 1.1, 1997/05/21 20:40:13	version 1.2, 1997/08/31 19:32:29
Line 47 Variable argc ( -- addr ) \ gforth	Line 47 Variable argc ( -- addr ) \ gforth
r> >tib +! 2 EXIT THEN	r> >tib +! 2 EXIT THEN
." Unknown option: " type cr 2drop 1 ;	." Unknown option: " type cr 2drop 1 ;

: process-args ( -- )	: (process-args) ( -- )
true to script?	true to script?
>tib @ >r	>tib @ >r
argc @ 1	argc @ 1
Line 64 Variable argc ( -- addr ) \ gforth	Line 64 Variable argc ( -- addr ) \ gforth
false to script?	false to script?
;	;

	' (process-args) IS process-args