From a699c93509020ffc3417c58c1bdc0e202cdc9e3b Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Fri, 24 Apr 2020 10:59:59 -0400
Subject: [PATCH] Print word that wasn't found on "word not found" error

---
 forth/print.fs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/forth/print.fs b/forth/print.fs
index 1dcd8ee..7f55ca4 100644
--- a/forth/print.fs
+++ b/forth/print.fs
@@ -26,10 +26,11 @@
 : ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE
 
 : (uflw) ABORT" stack underflow" ;
-: (wnf) ABORT" word not found" ;
 
 : BS 8 EMIT ;
 : LF 10 EMIT ;
 : CR 13 EMIT ;
 : CRLF CR LF ;
 : SPC 32 EMIT ;
+
+: (wnf) (print) SPC ABORT" word not found" ;