Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Bernd Paysan
bigforth
Commits
403ce5ee
Commit
403ce5ee
authored
Aug 06, 2010
by
bp
Browse files
Report broken name problem
git-svn-id:
https://forth-ev.de/repos/bigforth@1714
3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent
f493235e
Changes
1
Hide whitespace changes
Inline
Side-by-side
theseus.fs
View file @
403ce5ee
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment