X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335..51f1a2216a2af0133f56d468cb20815b4cdb480b:/fth/member.fth diff --git a/fth/member.fth b/fth/member.fth index c690dbe..160e95f 100644 --- a/fth/member.fth +++ b/fth/member.fth @@ -34,7 +34,7 @@ decimal : FIND.BODY ( -- , pfa true | $name false , look for word in dict. ) \ Return address of parameter data. - 32 word find + bl word find IF >body true ELSE false THEN