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

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

@ -5,12 +5,17 @@ prettyprint continuations effects definitions ;
IN: tools.annotations
: 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 -- )
over dup word-def "unannotated-def" set-word-prop
[ >r dup word-def r> call define ] with-compilation-unit ;
inline
[
over dup word-def "unannotated-def" set-word-prop
>r dup word-def r> call define
] with-compilation-unit ; inline
: entering ( str -- )
"/-- Entering: " write dup .