From e6cb449b1980f5d8770e2707b964e24bcab487bb Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 3 Dec 2008 10:44:21 -0600 Subject: [PATCH] optimized. now accepts method-specs --- basis/compiler/tree/debugger/debugger.factor | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/basis/compiler/tree/debugger/debugger.factor b/basis/compiler/tree/debugger/debugger.factor index e9bf77b188..8d764a2833 100644 --- a/basis/compiler/tree/debugger/debugger.factor +++ b/basis/compiler/tree/debugger/debugger.factor @@ -125,9 +125,13 @@ M: node node>quot drop ; : nodes>quot ( node -- quot ) [ [ node>quot ] each ] [ ] make ; -: optimized. ( quot/word -- ) - dup word? [ specialized-def ] when - build-tree optimize-tree nodes>quot . ; +GENERIC: optimized. ( quot/word -- ) + +M: method-spec optimized. first2 method optimized. ; + +M: word optimized. specialized-def optimized. ; + +M: callable optimized. build-tree optimize-tree nodes>quot . ; SYMBOL: words-called SYMBOL: generics-called