Commit 403ce5ee authored by bp's avatar bp
Browse files

Report broken name problem

git-svn-id: https://forth-ev.de/repos/bigforth@1714 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent f493235e
......@@ -113,7 +113,8 @@ hint-name ptr names
hint-name implements
: find-name ( o -- o / 0 )
dup hint self = IF drop self EXIT THEN
next self 0= IF drop 0 EXIT THEN
next self 0= IF drop 0 EXIT THEN
next self @ 0= IF ." broken name object!" cr drop 0 EXIT THEN
next goto find-name ;
: update-hint ( newo oldo -- )
dup hint self = IF drop bind hint EXIT THEN
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment