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

Make tools.annotations:reset more robust

db4
Slava Pestov 2008-01-05 22:07:13 -04:00
parent b40c064fc6
commit e84ad1f2ba
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/tools/annotations/annotations.factor
View File

@ -5,12 +5,17 @@ prettyprint continuations effects definitions ;
IN: tools.annotations IN: tools.annotations
: reset ( word -- ) : reset ( word -- )
dup "unannotated-def" word-prop define ; dup "unannotated-def" word-prop [
[
dup "unannotated-def" word-prop define
] with-compilation-unit
] [ drop ] if ;
: annotate ( word quot -- ) : annotate ( word quot -- )
[
over dup word-def "unannotated-def" set-word-prop over dup word-def "unannotated-def" set-word-prop
[ >r dup word-def r> call define ] with-compilation-unit ; >r dup word-def r> call define
inline ] with-compilation-unit ; inline
: entering ( str -- ) : entering ( str -- )
"/-- Entering: " write dup . "/-- Entering: " write dup .