X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=fth%2Ft_file.fth;h=388008c37661c23a33ea10dd40bdde3649b35d25;hb=e0d21c12cf924ad826eb0e73a10c5167f0195f65;hp=e6ba0bd48cb1c9b2ad0aa882e846bb1318063631;hpb=e0701bfb3e9047a565191d1e582f7f5d97a79f5f;p=debian%2Fpforth diff --git a/fth/t_file.fth b/fth/t_file.fth index e6ba0bd..388008c 100644 --- a/fth/t_file.fth +++ b/fth/t_file.fth @@ -214,12 +214,12 @@ T{ FN2 R/W BIN OPEN-FILE SWAP DROP 0= -> FALSE }T T{ FN2 DELETE-FILE 0= -> FALSE }T \ ---------------------------------------------------------------------------- -\ TESTING multi-line ( comments -\ -\ T{ ( 1 2 3 -\ 4 5 6 -\ 7 8 9 ) 11 22 33 -> 11 22 33 }T -\ +TESTING multi-line ( comments + +T{ ( 1 2 3 +4 5 6 +7 8 9 ) 11 22 33 -> 11 22 33 }T + \ ---------------------------------------------------------------------------- TESTING SOURCE-ID (can only test it does not return 0 or -1)