19 lines
330 B
Forth
19 lines
330 B
Forth
\ : loadh
|
|
\ HANDLE.IN @ push HANDLE.IN !
|
|
\ ERR.CATCH if
|
|
\ HANDLE.IN @ osclose drop pop HANDLE.IN ! parsereset ;
|
|
\ else
|
|
\ parsereset begin COMPILE again
|
|
\ thanx
|
|
|
|
: included; { \ (fname,cnt--)
|
|
drop zero dup osopen
|
|
pop drop \ do not return to brace
|
|
loadh
|
|
; }
|
|
|
|
( " nf.f" included; )
|
|
|
|
\ everything else is ignored...
|
|
|