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

words: remove word-props? used only in one place.

clean-macosx-x86-32
John Benediktsson 2019-05-20 20:45:29 -07:00
parent 056d8acad4
commit d0a8377827
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/words/words.factor
View File

@ -23,8 +23,7 @@ PRIVATE>
M: word execute (execute) ; M: word execute (execute) ;
M: word <=> M: word <=> [ [ name>> ] [ vocabulary>> ] bi 2array ] compare ;
[ [ name>> ] [ vocabulary>> ] bi 2array ] compare ;
M: word definer drop \ : \ ; ; M: word definer drop \ : \ ; ;
@ -129,15 +128,12 @@ M: word parent-word drop f ;
: word-prop? ( obj string -- ? ) : word-prop? ( obj string -- ? )
over word? [ word-prop ] [ 2drop f ] if ; inline over word? [ word-prop ] [ 2drop f ] if ; inline
: word-props? ( obj seq -- ? )
over word? [ [ word-prop ] with all? ] [ 2drop f ] if ; inline
: inline? ( obj -- ? ) "inline" word-prop? ; inline : inline? ( obj -- ? ) "inline" word-prop? ; inline
: recursive? ( obj -- ? ) "recursive" word-prop? ; inline : recursive? ( obj -- ? ) "recursive" word-prop? ; inline
: inline-recursive? ( obj -- ? ) : inline-recursive? ( obj -- ? )
{ "inline" "recursive" } word-props? ; inline dup inline? [ recursive? ] [ drop f ] if ; inline
ERROR: cannot-be-inline word ; ERROR: cannot-be-inline word ;