\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