X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335..922f2e38fe5332fae47d11af0473e9662c4b09fb:/fth/misc1.fth

diff --git a/fth/misc1.fth b/fth/misc1.fth
index 29e8ede..373e495 100644
--- a/fth/misc1.fth
+++ b/fth/misc1.fth
@@ -18,7 +18,6 @@ decimal
 
 : >> rshift ;
 : << lshift ;
-: CELL* ( n -- n*cell )  2 lshift ;
 
 : (WARNING")  ( flag $message -- )
     swap
@@ -37,7 +36,9 @@ decimal
 
 : (ABORT")  ( flag $message -- )
     swap
-    IF count type cr abort
+    IF
+    	count type cr
+    	err_abortq throw
     ELSE drop
     THEN
 ;
@@ -75,7 +76,7 @@ decimal
 
 : $ ( <number> -- N , convert next number as hex )
     base @ hex
-    32 lword number? num_type_single = not
+    bl lword number? num_type_single = not
     abort" Not a single number!"
     swap base !
     state @