--- gforth/Attic/kernal.fs	1994/04/20 17:12:03	1.2
+++ gforth/Attic/kernal.fs	1994/05/03 15:24:12	1.3
@@ -509,6 +509,8 @@ Create ???  ," ???"
 
 \ : ;                                                  24feb93py
 
+: EXIT  ( -- )  postpone ;s ;  immediate
+
 : : ( -- colon-sys )  Header [ :docol ] ALiteral cfa, 0 ] ;
 : ; ( colon-sys -- )  ?struc postpone exit reveal postpone [ ;
   immediate restrict