GH-67 Reimplement ORDER due to misinterpretation.

SirWumpus · Nov 10, 2024 · 8d3ae2d · 8d3ae2d
1 parent ac9f851
commit 8d3ae2d
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/post4.p4 b/src/post4.p4
@@ -2787,9 +2787,8 @@ FORTH-WORDLIST SET-CURRENT
 : show_wid ( wid -- ) S\" \e[36m[ " TYPE #. S\" ]\e[0m\r\n" TYPE ; $10 _pp!
 
 : ORDER ( -- )
-	GET-ORDER
-	BEGIN ?DUP WHILE 1- SWAP DUP show_wid words-in REPEAT
-	GET-CURRENT DUP show_wid words-in
+	." Search: " GET-ORDER 0 DO . SPACE LOOP CR
+	." Define: " GET-CURRENT . CR
 ;
 
 WORDLIST CONSTANT required-wordlist