git.gag.com Git - debian/pforth/blob - fth/t_include.fth

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