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

words: add safety checks for word? type.

db4
John Benediktsson 2013-03-11 11:41:22 -07:00
parent 734a987e24
commit ca6b18d945
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
core/words/words.factor
View File

@ -110,11 +110,17 @@ M: word parent-word drop f ;
: make-deprecated ( word -- ) : make-deprecated ( word -- )
t "deprecated" set-word-prop ; t "deprecated" set-word-prop ;
: inline? ( word -- ? ) "inline" word-prop ; inline : inline? ( obj -- ? )
dup word? [ "inline" word-prop ] [ drop f ] if ; inline
: inline-recursive? ( word -- ? ) : recursive? ( obj -- ? )
dup "inline" word-prop dup word? [ "recursive" word-prop ] [ drop f ] if ; inline
[ "recursive" word-prop ] [ drop f ] if ; inline
: inline-recursive? ( obj -- ? )
dup word? [
dup "inline" word-prop
[ "recursive" word-prop ] [ drop f ] if
] [ drop f ] if ; inline
ERROR: cannot-be-inline word ; ERROR: cannot-be-inline word ;