Initial import.

[debian/pforth] / fth / t_include.fth

\ Test INCLUDE errors.\r
\\r
\ Copyright 2001Phil Burk\r
\r
include? }T{  t_tools.fth\r
\r
marker task-t_string.fth\r
\r
decimal\r
\r
: F_UNDEF " t_load_undef.fth" ;\r
\r
test{\r
\r
T{ F_UNDEF ' $include catch }T{ F_UNDEF -13 }T\r
\r
        \r
}test\r