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
|
|
;
|