From 0ee566ea396ac6f02d45c52b34ef6dd6491131ec Mon Sep 17 00:00:00 2001
From: Jesse McDonald <nybble41@gmail.com>
Date: Thu, 5 Nov 2020 02:02:06 -0600
Subject: [PATCH] formatting & whitespace

---
 startup.4th | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/startup.4th b/startup.4th
index e535abb..634d627 100644
--- a/startup.4th
+++ b/startup.4th
@@ -2285,10 +2285,13 @@ ARGV ARGC 1+ CELLS+ CONSTANT ENVIRON
    LOCAL-NAMES BEGIN ?DUP WHILE DUP LOCAL>LINK @ SWAP FREE REPEAT
    TO LOCAL-NAMES ▪ POSTPONE UNLOCALS ;
 
-\ Define a threaded word which also displays its name and the data stack when called
 >> UTILITY
+
 : (TRACE)  ( xt -- )  >NAME TYPE SPACE .S ;
+
 >> FORTH
+
+\ Define a threaded word which also displays its name and the data stack when called
 : :TRACE  ( "<spaces?>name" -- )  : LATEST POSTPONE LITERAL POSTPONE (TRACE) ;
 
 \ Return TRUE if the given address is the execution token of a word in