fixed "where" bug in sprofiler

sine no longer pauses

svn: r1616

collects/mztake/demos/sine/sine-mztake.ss

@@ -22,5 +22,5 @@
               [sin-x (+ 200 (* 100 sin-x))])
           (history-b (changes (make-cute-circle x sin-x)) 50))))
 
-(set-running! (even? seconds))
+(set-running! #t)
 

collects/mztake/demos/sprofiler/sprofiler-mztake.ss

@@ -10,7 +10,7 @@
 
 (define pings (make-hash 'equal))
 
-((changes where)
+((changes (where))
  . ==> . (match-lambda [(line function context rest ...) 
                         (hash-table-increment! pings (list function context))]
                        [_ (void)]))
@@ -19,3 +19,6 @@
 
 (set-running-e! (merge-e (clicks . -=> . false)
                          (clicks . -=> . true)))
+
+(define (show-profile)
+  (quicksort (hash-pairs pings) (lambda (a b) (> (second a) (second b)))))