Fix definition of 0=exit

diff --git a/preForth/forth.simple b/preForth/forth.simple
index 9847285..3ed8039 100644 (file)
--- a/preForth/forth.simple
+++ b/preForth/forth.simple
@@ -531,8 +531,8 @@ immediate: ." ( -- )
    ['] (." ,
    '"' parse ", ; 
 
-: 0=exit ( -- )
-   ['] 0=  ['] ?exit ;
+immediate: 0=exit ( -- )
+   ['] 0= compile, ['] ?exit compile, ;
 
 immediate: FOR ( n -- )
    ['] BEGIN execute