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

tools.annotations: add a predicate class for annotated words.

db4
John Benediktsson 2012-07-27 14:06:38 -07:00
parent 7cb973009a
commit c6810293a0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/tools/annotations/annotations.factor
View File

@ -29,12 +29,12 @@ ERROR: cannot-annotate-twice word ;
M: cannot-annotate-twice summary drop "Cannot annotate a word twice" ; M: cannot-annotate-twice summary drop "Cannot annotate a word twice" ;
PREDICATE: annotated < word "unannotated-def" word-prop >boolean ;
<PRIVATE <PRIVATE
: check-annotate-twice ( word -- word ) : check-annotate-twice ( word -- word )
dup "unannotated-def" word-prop [ dup annotated? [ cannot-annotate-twice ] when ;
cannot-annotate-twice
] when ;
: annotate-generic ( word quot -- ) : annotate-generic ( word quot -- )
[ "methods" word-prop values ] dip each ; inline [ "methods" word-prop values ] dip each ; inline