From: Clyne Sullivan <clyne@bitgloo.com>
Date: Fri, 27 Oct 2023 12:33:21 +0000 (-0400)
Subject: fix MARKER
X-Git-Url: https://code.bitgloo.com/?a=commitdiff_plain;h=3bb6ecbb2387614f352291920b3808e0b0808889;p=bitgloo%2Falee-forth.git

fix MARKER
---

diff --git a/forth/core-ext.fth b/forth/core-ext.fth
index 7e4da06..9dab169 100644
--- a/forth/core-ext.fth
+++ b/forth/core-ext.fth
@@ -45,8 +45,8 @@
 : erase    0 fill ;
 : roll     dup if swap >r 1- recurse r> swap exit then drop ;
 
-: marker   create _latest @ , here , does>
-           dup @ _latest ! cell+ @ here swap - allot ;
+: marker   here _latest @ create , , does>
+           dup @ _latest ! cell+ @ here - allot ;
 
 : case     ['] _lit , 1 here 0 , ['] drop , ; imm
 : of       ['] over , ['] = , postpone if ; imm