Fix error when mouse over in 'All' in profiler

2009-01-08 23:50:43 -06:00 · 2009-01-08 23:50:43 -06:00 · f4418410e9
parent 730c636172
commit f4418410e9
1 changed files with 2 additions and 1 deletions
--- a/basis/ui/tools/profiler/profiler.factor
+++ b/basis/ui/tools/profiler/profiler.factor
@ -28,7 +28,8 @@ SINGLETON: word-renderer
 M: word-renderer row-columns
    drop [ [ present ] map ] [ { "All" "" } ] if* ;

-M: word-renderer row-value drop first ;
+M: word-renderer row-value
+    drop dup [ first ] when ;

 SINGLETON: method-renderer