From d36bf95ff67d1e8b1eadfba01a5f0ba0bf80c818 Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Wed, 7 Feb 2018 21:22:48 +0000
Subject: [PATCH] autopsy: cleaner disassembly output

FossilOrigin-Name: 5e533b1dc36ebc23640f1219db3e111dc880901378d29b8e0b238b87376ca056
---
 autopsy.forth | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/autopsy.forth b/autopsy.forth
index 1342fe1..f5b66a2 100644
--- a/autopsy.forth
+++ b/autopsy.forth
@@ -246,7 +246,7 @@ So helpers for displaying things:
 ~~~
 :display-status
   @RP @SP [IP] unpack @IP
-  'IP:%n_[%n,%n,%n,%n]_SP:%n_RP:%n__ s:with-format puts ;
+  'IP:%n_[%n,%n,%n,%n]\tSP:%n_RP:%n\t s:with-format puts ;
 
 :display-data-stack
   #0 @SP [ &DataStack over + fetch putn sp n:inc ] times drop ;