X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=fth%2Fmisc1.fth;h=3a3a60ac206c33f46a97ae2a03d7327ccde18c4d;hb=c1b0551debcb415cbc9fc976d011998d9f14759b;hp=1e36e5547be4633fac77593a0d3704e71ea4e3d4;hpb=77f603e7a5d5b01af482c34c2eae7e563bd17583;p=debian%2Fpforth

diff --git a/fth/misc1.fth b/fth/misc1.fth
index 1e36e55..3a3a60a 100644
--- a/fth/misc1.fth
+++ b/fth/misc1.fth
@@ -74,7 +74,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 @