\r
: >> rshift ;\r
: << lshift ;\r
-: CELL* ( n -- n*cell ) 2 lshift ;\r
\r
: (WARNING") ( flag $message -- )\r
swap\r
\r
: (ABORT") ( flag $message -- )\r
swap\r
- IF count type cr abort\r
+ IF\r
+ count type cr\r
+ err_abortq throw\r
ELSE drop\r
THEN\r
;\r
\r
: $ ( <number> -- N , convert next number as hex )\r
base @ hex\r
- 32 lword number? num_type_single = not\r
+ bl lword number? num_type_single = not\r
abort" Not a single number!"\r
swap base !\r
state @\r