From 1c76451acc06a3ab39a35925e99e7ca44f8115fa Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Fri, 3 Mar 2023 12:44:10 -0500
Subject: revise parsing for better compliance

---
 test/core.fr | 45 ++++++++++++++++++++++-----------------------
 1 file changed, 22 insertions(+), 23 deletions(-)

(limited to 'test')

diff --git a/test/core.fr b/test/core.fr
index 10386c4..9b866a2 100644
--- a/test/core.fr
+++ b/test/core.fr
@@ -793,34 +793,33 @@ T{ W1 -> HERE 2 + }T
 \ T{ GE6 -> 123 }T
 \ T{ : GE7 GE2 GE5 ; -> }T
 \ T{ GE7 -> 124 }T
-\ 
-\ \ ------------------------------------------------------------------------
-\ TESTING SOURCE >IN WORD
-\ 
+
+\ ------------------------------------------------------------------------
+." TESTING SOURCE >IN WORD" CR
+
 \ : GS1 S" SOURCE" 2DUP EVALUATE
 \        >R SWAP >R = R> R> = ;
 \ T{ GS1 -> <TRUE> <TRUE> }T
-\ 
-\ VARIABLE SCANS
-\ : RESCAN?  -1 SCANS +! SCANS @ IF 0 >IN ! THEN ;
-\ 
-\ T{ 2 SCANS !
-\ 345 RESCAN?
-\ -> 345 345 }T
-\ 
+
+VARIABLE SCANS
+: RESCAN?  -1 SCANS +! SCANS @ IF 0 >IN ! THEN ;
+T{ 2 SCANS !
+345 RESCAN?
+-> 345 345 }T
+
 \ : GS2  5 SCANS ! S" 123 RESCAN?" EVALUATE ;
 \ T{ GS2 -> 123 123 123 123 123 }T
-\ 
-\ : GS3 WORD COUNT SWAP C@ ;
-\ T{ BL GS3 HELLO -> 5 CHAR H }T
-\ T{ CHAR " GS3 GOODBYE" -> 7 CHAR G }T
-\ T{ BL GS3
-\ DROP -> 0 }T            \ BLANK LINE RETURN ZERO-LENGTH STRING
-\ 
-\ : GS4 SOURCE >IN ! DROP ;
-\ T{ GS4 123 456
-\ -> }T
-\ 
+
+: GS3 WORD COUNT SWAP C@ ;
+T{ BL GS3 HELLO -> 5 CHAR H }T
+T{ CHAR " GS3 GOODBYE" -> 7 CHAR G }T
+T{ BL GS3
+DROP -> 0 }T            \ BLANK LINE RETURN ZERO-LENGTH STRING
+
+: GS4 SOURCE >IN ! DROP ;
+T{ GS4 123 456
+-> }T
+
 \ \ ------------------------------------------------------------------------
 \ TESTING <# # #S #> HOLD SIGN BASE >NUMBER HEX DECIMAL
 \ 
-- 
cgit v1.2.3