From 92158ef055769248d921bc0056a28186290e626e Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 17 Feb 2009 14:26:17 -0600
Subject: [PATCH] Fix profiler
---
basis/ui/tools/profiler/profiler.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/ui/tools/profiler/profiler.factor b/basis/ui/tools/profiler/profiler.factor
index f99cb6b368..4eb5833ed0 100644
--- a/basis/ui/tools/profiler/profiler.factor
+++ b/basis/ui/tools/profiler/profiler.factor
@@ -87,7 +87,7 @@ M: method-renderer column-titles drop { "" "Method" "Count" } ;
] keep <profiler-model> ;
: <profiler-table> ( model renderer -- table )
- [ first present ] <search-table>
+ [ dup [ first present ] when ] <search-table>
[ invoke-primary-operation ] >>action ;
: <profiler-filter-model> ( counts profiler -- model' )