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

View File

@ -20,9 +20,6 @@ M: callable (build-tree) infer-quot-here ;
: check-no-compile ( word -- )
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 )
dup inline-recursive? [ 1quotation ] [ specialized-def ] if ;

View File

@ -108,6 +108,10 @@ M: word parent-word drop f ;
: 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 ;
GENERIC: make-inline ( word -- )