COLD
* 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 ;

misc ordinary primitive