From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Fri, 4 Jun 2021 08:12:59 +0000 (+1000)
Subject: remove mistaken swap
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=41f174ae2048c812c337f38ee82bdce51dd74e9c;p=rrq%2Frrqforth.git

remove mistaken swap
---

diff --git a/temp.asm b/temp.asm
index 9759f54..62ae251 100644
--- a/temp.asm
+++ b/temp.asm
@@ -40,11 +40,11 @@ p_objecthole_from_tail:
 	;; ( char* n -- char* n )
 	;; Capture a given [n:char*] string as a new temp object with
 	;; leading size cell.
-	dq p_dup, p_gtR 	; size
-	dq p_dup, p_temp
-	dq p_dup, p_gtR		; address
+	dq p_dup, p_gtR 	; ( -- char* n ) [ n ]
+	dq p_dup, p_temp	; ( -- char* n  addr )
+	dq p_dup, p_gtR		; ( -- char* n  addr ) [ n addr ]
 	dq p_2dup, p_put
 	dq p_literal, 8, p_plus
 	dq p_swap, p_strncpy
-	dq p_Rgt, p_Rgt, p_swap
+	dq p_Rgt, p_Rgt
 	dq p_exit