From 408727db4ab128e37120d562f4406f8050fc4cc8 Mon Sep 17 00:00:00 2001
From: Irene Knapp <ireneista@irenes.space>
Date: Mon, 13 Apr 2026 13:34:11 -0700
Subject: tweak how the spaces around "describe" are printed

there had been trailing spaces in the output; now there aren't.

happily, since this was just rearranging existing code snippets, there was no need to recalculate those fiddly branch offsets.

Force-Push: yes
Change-Id: Ifde20e2f8e405da3d74175fd029d589eb0a1ecc0
---
 quine.asm | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'quine.asm')

diff --git a/quine.asm b/quine.asm
index ceb2c9e..11f8683 100644
--- a/quine.asm
+++ b/quine.asm
@@ -8265,7 +8265,8 @@ defword show_hex_between, 0
   dq swap, entry_to_execution_token, lit, 8, add
   ; (end address, current address)
   dq dup2, ge, zbranch, 4*8, drop, drop, exit
-  dq dup, fetch, dothex64, litstring, " ", emitstring
+  dq litstring, " ", emitstring
+  dq dup, fetch, dothex64
   dq lit, 8, add
   dq branch, -17*8
 
@@ -8295,7 +8296,8 @@ defword show_source_between, 0
 
   ; (end address, current address, name)
 
-  dq dup, emitstring, litstring, " ", emitstring
+  dq litstring, " ", emitstring
+  dq dup, emitstring
   dq swap, lit, 8, add, swap
 
   dq dup, litstring, "lit", stringcmp, zbranch, 57*8          ; 6 words
@@ -8312,17 +8314,18 @@ defword show_source_between, 0
   dq drop, branch, -82*8
 
   ; This is the lit branch that expects to be followed by a single word.
-  dq drop, dup, fetch, dot, litstring, " ", emitstring
+  dq litstring, " ", emitstring
+  dq drop, dup, fetch, dot
   dq lit, 8, add
   dq branch, -94*8
 
   ; This is the lit branch that expects to be followed by a string. First, we
   ; print the string...
   dq drop
+  dq litstring, " ", emitstring
   dq lit, 0x22, fetch_value_stack, emitstring, drop
   dq dup, emitstring
   dq lit, 0x22, fetch_value_stack, emitstring, drop
-  dq litstring, " ", emitstring
 
   ; ... then, we skip the string.
   ;
@@ -8466,11 +8469,12 @@ defword early_show_source_or_hex, 0
 ;   heap address
 defword early_describe, 0
   dq docol
+  dq litstring, 0x0a, emitstring
   dq dup, dothex64
   dq litstring, 0x0a, emitstring
   dq dup, entry_to_name, emitstring, litstring, ":", emitstring
   dq litstring, 0x0a, emitstring
-  dq litstring, "  ", emitstring
+  dq litstring, " ", emitstring
   dq early_show_source_or_hex
   dq litstring, 0x0a, emitstring
   dq exit
-- 
cgit 1.4.1