From 46e9481cb6e23c384dd5f4be94594e8fee3728e1 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 1 Sep 2008 22:46:00 -0500 Subject: [PATCH] new accessors --- basis/ui/tools/interactor/interactor.factor | 2 +- basis/ui/tools/profiler/profiler.factor | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/ui/tools/interactor/interactor.factor b/basis/ui/tools/interactor/interactor.factor index 39f10f42ae..a36610a7f5 100755 --- a/basis/ui/tools/interactor/interactor.factor +++ b/basis/ui/tools/interactor/interactor.factor @@ -61,7 +61,7 @@ M: interactor ungraft* M: interactor model-changed 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 ] if ; diff --git a/basis/ui/tools/profiler/profiler.factor b/basis/ui/tools/profiler/profiler.factor index 462af87574..98717fc7bc 100755 --- a/basis/ui/tools/profiler/profiler.factor +++ b/basis/ui/tools/profiler/profiler.factor @@ -39,10 +39,10 @@ profiler-gadget "toolbar" f { GENERIC: profiler-presentation ( obj -- quot ) M: usage-profile profiler-presentation - usage-profile-word [ usage-profile. ] curry ; + word>> [ usage-profile. ] curry ; M: vocab-profile profiler-presentation - vocab-profile-vocab [ vocab-profile. ] curry ; + vocab>> [ vocab-profile. ] curry ; M: f profiler-presentation drop [ vocabs-profile. ] ;