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

Smarter breakpoint word

db4
Slava Pestov 2008-04-05 22:59:31 -05:00
parent 29406f07eb
commit f1bacc2110
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,10 +2,16 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel words parser io inspector quotations sequences USING: kernel words parser io inspector quotations sequences
prettyprint continuations effects definitions compiler.units prettyprint continuations effects definitions compiler.units
namespaces assocs tools.walker ; namespaces assocs tools.walker generic ;
IN: tools.annotations IN: tools.annotations
: reset ( word -- ) GENERIC: reset ( word -- )
M: generic reset
[ call-next-method ]
[ subwords [ reset ] each ] bi ;
M: word reset
dup "unannotated-def" word-prop [ dup "unannotated-def" word-prop [
[ [
dup dup "unannotated-def" word-prop define dup dup "unannotated-def" word-prop define
@ -60,8 +66,16 @@ IN: tools.annotations
: watch-vars ( word vars -- ) : watch-vars ( word vars -- )
dupd [ (watch-vars) ] 2curry annotate ; dupd [ (watch-vars) ] 2curry annotate ;
GENERIC# annotate-methods 1 ( word quot -- )
M: generic annotate-methods
>r "methods" word-prop values r> [ annotate ] curry each ;
M: word annotate-methods
annotate ;
: breakpoint ( word -- ) : breakpoint ( word -- )
[ add-breakpoint ] annotate ; [ add-breakpoint ] annotate-methods ;
: breakpoint-if ( word quot -- ) : breakpoint-if ( word quot -- )
[ [ [ break ] when ] rot 3append ] curry annotate ; [ [ [ break ] when ] rot 3append ] curry annotate-methods ;