From: Ralph Ronnquist 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 )