From af34583b5f5d8dcd9f6a7ff5e27a967f6c9e4942 Mon Sep 17 00:00:00 2001
From: Jesse McDonald <nybble41@gmail.com>
Date: Thu, 5 Nov 2020 02:06:12 -0600
Subject: [PATCH] fix MARK so it works when interpreting, not just when
 compiling

---
 startup.4th | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/startup.4th b/startup.4th
index 8890edb..e535abb 100644
--- a/startup.4th
+++ b/startup.4th
@@ -1302,7 +1302,7 @@ DEFER REFILL
 
 \ Debugging aid; shows a label and the contents of the stacks at runtime
 : MARK  ( "<spaces?>name" )  IMMEDIATE
-   PARSE-NAME POSTPONE SLITERAL POSTPONE (MARK) ;
+   PARSE-NAME STATE @ IF POSTPONE SLITERAL POSTPONE (MARK) ELSE (MARK) THEN ;
 
 >>FORTH