remove mistaken swap

diff --git a/temp.asm b/temp.asm
index 9759f546eee4e62dbbbb1e6079f15ecac59d3b28..62ae251a12a52d27a475c410ffc37fe7c208d84b 100644 (file)
--- 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