From 8d3ae2d6035357f0d3d5215b93d5fcf87140d901 Mon Sep 17 00:00:00 2001
From: Anthony Howe <achowe@snert.com>
Date: Sun, 10 Nov 2024 11:43:22 -0500
Subject: [PATCH] GH-67 Reimplement `ORDER` due to misinterpretation.

---
 src/post4.p4 | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/post4.p4 b/src/post4.p4
index 8cc211e..e36aae5 100644
--- 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