X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=fth%2Fmisc1.fth;h=373e49553280334484cd89d78448d40ff03b04b2;hb=a8f5615dcc9ab22080c4897babfad092885b1b6e;hp=29e8edef1b0e51b71fe12b06ff89f139cd7a61f0;hpb=bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335;p=debian%2Fpforth

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 @