Minor tweaks

[pforth] / fth / file.fth

diff --git a/fth/file.fth b/fth/file.fth
index 6b0db20..8fe0810 100644 (file)
--- a/fth/file.fth
+++ b/fth/file.fth
@@ -68,7 +68,6 @@ create (LINE-TERMINATOR) \n c,
     WHILE                       ( )
         refill 0= IF EXIT THEN  ( )
     REPEAT
     WHILE                       ( )
         refill 0= IF EXIT THEN  ( )
     REPEAT

-

 ;
 
 }private
 ;
 
 }private


@@ -123,6 +122,7 @@ create (LINE-TERMINATOR) \n c,
     CASE
         -1 OF postpone ( ENDOF
         0  OF postpone ( ENDOF
     CASE
         -1 OF postpone ( ENDOF
         0  OF postpone ( ENDOF

+        \ for input from files

         multi-line-comment
     ENDCASE
 ; immediate
         multi-line-comment
     ENDCASE
 ; immediate