cold:misc — ordinary primitive
FORTH
COLD
( -- )(
)
;
p4:"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 ;