Merge pull request #61 from philburk/docansi

[pforth] / fth / t_file.fth

diff --git a/fth/t_file.fth b/fth/t_file.fth
index 7171a78..297f208 100644 (file)
--- a/fth/t_file.fth
+++ b/fth/t_file.fth
@@ -60,7 +60,7 @@ include? }T{  t_tools.fth
 
 true fp-require-e !
 
 
 true fp-require-e !
 

-true value verbose
+false value verbose

 
 : testing
     verbose IF
 
 : testing
     verbose IF


@@ -73,9 +73,6 @@ true value verbose
 : s= compare 0= ;
 : $" state IF postpone s" else ['] s" execute THEN ; immediate
 
 : s= compare 0= ;
 : $" state IF postpone s" else ['] s" execute THEN ; immediate
 

-\ FIXME: stubs for missing definitions
-: file-status 2drop 0 -1 ;
-

 TESTING File Access word set
 
 DECIMAL
 TESTING File Access word set
 
 DECIMAL


@@ -250,15 +247,15 @@ T{ fn3 DELETE-FILE DROP -> }T
 TESTING REQUIRED REQUIRE INCLUDED
 \ Tests taken from Forth 2012 RfD
 
 TESTING REQUIRED REQUIRE INCLUDED
 \ Tests taken from Forth 2012 RfD
 

-T{ 0 S" t_required-helper1.fth" REQUIRED
-     REQUIRE t_required-helper1.fth
-     INCLUDE t_required-helper1.fth
+T{ 0 S" t_required_helper1.fth" REQUIRED
+     REQUIRE t_required_helper1.fth
+     INCLUDE t_required_helper1.fth

      -> 2 }T
 
      -> 2 }T
 

-T{ 0 INCLUDE t_required-helper2.fth
-     S" t_required-helper2.fth" REQUIRED
-     REQUIRE t_required-helper2.fth
-     S" t_required-helper2.fth" INCLUDED
+T{ 0 INCLUDE t_required_helper2.fth
+     S" t_required_helper2.fth" REQUIRED
+     REQUIRE t_required_helper2.fth
+     S" t_required_helper2.fth" INCLUDED

      -> 2 }T
 
 \ ----------------------------------------------------------------------------
      -> 2 }T
 
 \ ----------------------------------------------------------------------------