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

parser: Fix for empty word list. Oops.

db4
Doug Coleman 2014-10-27 19:38:32 -07:00
parent 8cbfaa9450
commit c71c200063
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/parser/parser.factor
View File

@ -41,7 +41,8 @@ SYMBOL: auto-use?
! of name conflicts ! of name conflicts
: no-word ( name -- newword ) : no-word ( name -- newword )
dup words-named ignore-forwards dup words-named ignore-forwards
dup [ length 1 = ] [ first private? not ] bi and dup [ length 1 = ]
[ [ f ] [ first private? not ] if-empty ] bi and
auto-use? get and auto-use? get and
[ nip first no-word-restarted ] [ nip first no-word-restarted ]
[ <no-word-error> throw-restarts no-word-restarted ] [ <no-word-error> throw-restarts no-word-restarted ]