steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

parser: Cleaner fix, comments. Fixes #1174.

db4
Doug Coleman 2014-10-27 12:12:23 -07:00
parent b83fe1db51
commit ce3d31014c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
core/parser/parser.factor
View File

@ -36,14 +36,14 @@ SYMBOL: auto-use?
: private? ( word -- ? ) vocabulary>> ".private" tail? ; : private? ( word -- ? ) vocabulary>> ".private" tail? ;
! True branch is a singleton public word with no name conflicts
! False branch, singleton private words need confirmation regardless
! of name conflicts
: no-word ( name -- newword ) : no-word ( name -- newword )
dup words-named ignore-forwards dup words-named ignore-forwards
dup length 1 = auto-use? get and dup [ length 1 = ] [ first private? not ] bi and
[ auto-use? get and
dup first private? [ nip first no-word-restarted ]
[ <no-word-error> throw-restarts no-word-restarted ]
[ nip first no-word-restarted ] if
]
[ <no-word-error> throw-restarts no-word-restarted ] [ <no-word-error> throw-restarts no-word-restarted ]
if ; if ;