From 3bb6ecbb2387614f352291920b3808e0b0808889 Mon Sep 17 00:00:00 2001 From: Clyne Sullivan Date: Fri, 27 Oct 2023 08:33:21 -0400 Subject: [PATCH] fix MARKER --- forth/core-ext.fth | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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