* COLD ( -- ) cold abort - reinitialize everything and go to QUIT routine ... this routine is implemented as a warm-boot in pfe. : WARM FENCE @ (FORGET) INCLUDE-FILE ?DUP IF COUNT INCLUDED THEN QUIT ;
COLD
( -- )
QUIT
: WARM FENCE @ (FORGET) INCLUDE-FILE ?DUP IF COUNT INCLUDED THEN QUIT ;
misc ordinary primitive