12 lines
189 B
Forth
12 lines
189 B
Forth
|
\ Include a file from the arg list
|
||
|
|
: process-arg ( argnum )
|
||
|
|
dup 0 > over argc < and
|
||
|
|
if
|
||
|
|
." include "
|
||
|
|
4 * argv + @ dup zcount type cr
|
||
|
|
zcount included
|
||
|
|
else
|
||
|
|
drop
|
||
|
|
then
|
||
|
|
;
|