diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2023-10-27 08:33:21 -0400 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2023-10-27 08:33:21 -0400 |
| commit | 3bb6ecbb2387614f352291920b3808e0b0808889 (patch) | |
| tree | 3d081b73fc830c0c157faac9cab945efbbb6585d | |
| parent | ddba135e7d9b596f0c9856e1f409e9f8e07001f1 (diff) | |
fix MARKER
| -rw-r--r-- | forth/core-ext.fth | 4 |
1 files 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 |