From 4b50a9fafe793abf3c2c16e203072a98a0702814 Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Thu, 9 Nov 2023 14:48:49 -0500
Subject: move main execution to State; bring back verify()

---
 forth/core.fth | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'forth/core.fth')

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 ;
-- 
cgit v1.2.3