Change throw code for abort quote from -1 to -2.

[debian/pforth] / fth / member.fth

diff --git a/fth/member.fth b/fth/member.fth
index c690dbec8275ac1a0695786bcc1ed6c94e1f378a..160e95f9c58a28be9aa503dfa4dc627da9f394a1 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
-     32 word find\r
+     bl word find\r
      IF  >body true\r
      ELSE false\r
      THEN\r