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

words: adding inline-recursive?.

db4
John Benediktsson 2013-03-04 16:09:56 -08:00
parent 668d37fef7
commit 7a3a801bde
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/compiler/tree/builder/builder.factor
View File

@ -20,9 +20,6 @@ M: callable (build-tree) infer-quot-here ;
: check-no-compile ( word -- ) : check-no-compile ( word -- )
dup "no-compile" word-prop [ do-not-compile ] [ drop ] if ; dup "no-compile" word-prop [ do-not-compile ] [ drop ] if ;
: inline-recursive? ( word -- ? )
[ "inline" word-prop ] [ "recursive" word-prop ] bi and ;
: word-body ( word -- quot ) : word-body ( word -- quot )
dup inline-recursive? [ 1quotation ] [ specialized-def ] if ; dup inline-recursive? [ 1quotation ] [ specialized-def ] if ;

4
core/words/words.factor
View File

@ -108,6 +108,10 @@ M: word parent-word drop f ;
: inline? ( word -- ? ) "inline" word-prop ; inline : inline? ( word -- ? ) "inline" word-prop ; inline
: inline-recursive? ( word -- ? )
dup "inline" word-prop
[ "recursive" word-prop ] [ drop f ] if ; inline
ERROR: cannot-be-inline word ; ERROR: cannot-be-inline word ;
GENERIC: make-inline ( word -- ) GENERIC: make-inline ( word -- )