From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Sat, 12 Jun 2021 14:05:11 +0000 (+1000)
Subject: bug fix ALLOT
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=d16950460c966e302f79b7450f50cc21ddc93672;p=rrq%2Frrqforth.git

bug fix ALLOT
---

diff --git a/compile.asm b/compile.asm
index e7f3090..f723487 100644
--- a/compile.asm
+++ b/compile.asm
@@ -41,7 +41,7 @@ p_create_COPY:
 	WORD p_allot,'ALLOT'
 	;; ( n -- )
 	;; Allocate n bytes on the heap
-	dq p_here, p_put_plus, p_return
+	dq p_here, p_swap, p_put_plus, p_return
 	
 	WORD p_quote,"'"
 	;; ( "word" -- cfa )