words: adding inline-recursive?.
parent
668d37fef7
commit
7a3a801bde
|
@ -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 ;
|
||||
|
||||
|
|
|
@ -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 -- )
|
||||
|
|
Loading…
Reference in New Issue