Add MINGW suport.

[debian/pforth] / fth / misc1.fth

diff --git a/fth/misc1.fth b/fth/misc1.fth
index 1e36e5547be4633fac77593a0d3704e71ea4e3d4..3a3a60ac206c33f46a97ae2a03d7327ccde18c4d 100644 (file)
--- a/fth/misc1.fth
+++ b/fth/misc1.fth
@@ -74,7 +74,7 @@ decimal
 \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