\ -*- coding: utf-8 -*-
; -----------------------------------------------------
-; CORECOMP.f words complement to pass CORETEST.4TH
+; CORE_ANS.f words complement to pass CORETEST.4TH
; -----------------------------------------------------
\
\ FastForth kernel options: MSP430ASSEMBLER, CONDCOMP
PWR_STATE
+
[DEFINED] {CORE_ANS} [IF] {CORE_ANS} [THEN] \ remove it if defined out of kernel
[UNDEFINED] {CORE_ANS} [IF] \
RST_HERE
-[THEN] \ end of [UNDEFINED] {CORE_COMP}
+[THEN] \ end of [UNDEFINED] {CORE_ANS}
ECHO