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

tools.annotations: Use fry in '(watch)'

db4
Eduardo Cavazos 2008-09-13 04:09:13 -05:00
parent 8779784798
commit d2646cfe1b
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,7 +3,7 @@
USING: accessors kernel words parser io summary quotations USING: accessors kernel words parser io summary quotations
sequences prettyprint continuations effects definitions sequences prettyprint continuations effects definitions
compiler.units namespaces assocs tools.walker generic compiler.units namespaces assocs tools.walker generic
inspector ; inspector fry ;
IN: tools.annotations IN: tools.annotations
GENERIC: reset ( word -- ) GENERIC: reset ( word -- )
@ -49,10 +49,7 @@ M: word reset
.s .s
] if* "\\--" print flush ; ] if* "\\--" print flush ;
: (watch) ( word def -- def ) : (watch) ( word def -- def ) over '[ _ entering @ _ leaving ] ;
over [ entering ] curry
rot [ leaving ] curry
swapd 3append ;
: watch ( word -- ) : watch ( word -- )
dup [ (watch) ] annotate ; dup [ (watch) ] annotate ;