1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
\ Test INCLUDE errors. \ \ Copyright 2001Phil Burk include? }T{ t_tools.fth marker task-t_string.fth decimal : F_UNDEF " t_load_undef.fth" ; test{ T{ F_UNDEF ' $include catch }T{ F_UNDEF -13 }T }test