X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/1cb310e62eaf4422ee298d9d87c35f9dd6b4c71c..419d914ec44e5355d7f9446c98730ee0454acb26:/fth/misc1.fth

diff --git a/fth/misc1.fth b/fth/misc1.fth
index 1e36e55..373e495 100644
--- a/fth/misc1.fth
+++ b/fth/misc1.fth
@@ -36,7 +36,9 @@ decimal
 
 : (ABORT")  ( flag $message -- )
     swap
-    IF count type cr abort
+    IF
+    	count type cr
+    	err_abortq throw
     ELSE drop
     THEN
 ;
@@ -74,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 @