fix MARKER

1 year ago · 3bb6ecbb23
parent ddba135e7d
commit 3bb6ecbb23
1 changed files with 2 additions and 2 deletions
--- 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>
+: marker   here _latest @ create , , does>
-           dup @ _latest ! cell+ @ here swap - allot ;
+           dup @ _latest ! cell+ @ here - allot ;
 : case     ['] _lit , 1 here 0 , ['] drop , ; imm
 : of       ['] over , ['] = , postpone if ; imm