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

new accessors

db4
Doug Coleman 2008-09-01 22:46:00 -05:00
parent e193548489
commit 46e9481cb6
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/tools/interactor/interactor.factor
View File

@ -61,7 +61,7 @@ M: interactor ungraft*
M: interactor model-changed M: interactor model-changed
2dup help>> eq? [ 2dup help>> eq? [
swap model-value over word-at-loc swap show-summary swap value>> over word-at-loc swap show-summary
] [ ] [
call-next-method call-next-method
] if ; ] if ;

4
basis/ui/tools/profiler/profiler.factor
View File

@ -39,10 +39,10 @@ profiler-gadget "toolbar" f {
GENERIC: profiler-presentation ( obj -- quot ) GENERIC: profiler-presentation ( obj -- quot )
M: usage-profile profiler-presentation M: usage-profile profiler-presentation
usage-profile-word [ usage-profile. ] curry ; word>> [ usage-profile. ] curry ;
M: vocab-profile profiler-presentation M: vocab-profile profiler-presentation
vocab-profile-vocab [ vocab-profile. ] curry ; vocab>> [ vocab-profile. ] curry ;
M: f profiler-presentation M: f profiler-presentation
drop [ vocabs-profile. ] ; drop [ vocabs-profile. ] ;