diff options
Diffstat (limited to 'forth/core.fth')
| -rw-r--r-- | forth/core.fth | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/forth/core.fth b/forth/core.fth index 8ec5b71..e9fc133 100644 --- a/forth/core.fth +++ b/forth/core.fth @@ -51,8 +51,8 @@ : else ['] _jmp , here 0 , swap here swap ! ; imm : postpone _' dup 0 = if exit then - 1 = swap ['] _lit , , if ['] execute , - else ['] , , then ; imm + 1 = swap ['] _lit , , if ['] execute + else ['] , then , ; imm : over 1 pick ; : rot >r swap r> swap ; |