--- gforth/other.fs 1998/12/08 22:02:49 1.5 +++ gforth/other.fs 1998/12/23 23:59:21 1.6 @@ -23,7 +23,7 @@ \ the cross compiler should run \ with any ansforth environment -: ?EXIT s" IF EXIT THEN" evaluate ; immediate +: ?EXIT POSTPONE if POSTPONE exit POSTPONE then ; immediate : bounds over + swap ; : name bl word ; : on true swap ! ;