Add MINGW suport.

[pforth] / fth / member.fth

diff --git a/fth/member.fth b/fth/member.fth
index c690dbe..160e95f 100644 (file)
--- a/fth/member.fth
+++ b/fth/member.fth
@@ -34,7 +34,7 @@ decimal
 \r
 : FIND.BODY   ( -- , pfa true | $name false , look for word in dict. )\r
 \ Return address of parameter data.\r
 \r
 : FIND.BODY   ( -- , pfa true | $name false , look for word in dict. )\r
 \ Return address of parameter data.\r

-     32 word find\r
+     bl word find\r

      IF  >body true\r
      ELSE false\r
      THEN\r
      IF  >body true\r
      ELSE false\r
      THEN\r