X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=fth%2Ft_include.fth;h=d7ba7c29c7cc551b28d0ffc98be4bdecc80b970c;hb=8d2c2052594284dc08a548589d63b6bcaf28f653;hp=db7e646f1c1aad414b6ab624c97ddbf679b89340;hpb=bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335;p=debian%2Fpforth diff --git a/fth/t_include.fth b/fth/t_include.fth index db7e646..d7ba7c2 100644 --- a/fth/t_include.fth +++ b/fth/t_include.fth @@ -1,18 +1,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 +\ 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