Control flow for conditional tests improved

Suggested solution used, plus definition and use of GOTO-EOF deleted. Issue #36 closed
gerryjackson · Aug 2, 2022 · 45b7ecc · 45b7ecc
1 parent 2ccc585
commit 45b7ecc
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/fp/fpzero-test.4th b/src/fp/fpzero-test.4th
@@ -38,8 +38,7 @@ variable #errors    0 #errors !
 
    cr cr .( ** System does not support floating point signed zero. **)
    cr    .( ** Therefore these tests have been skipped **) cr
-   : goto-eof begin refill 0= until ;  goto-eof
-[THEN]
+[ELSE]
 
 verbose @ [IF]
   cr cr .( System supports fp signed zero. )
@@ -65,5 +64,5 @@ cr .( #ERRORS: ) #errors @ . cr
 [THEN]
 
 CR .( End of fpzero-test.4th) CR
-
+[THEN]