[plt-scheme] frtime slowing down

Thanks! - is there a way I can retrofit the fix into 372, or will it be
best for me to upgrade to v4?

On Fri, 2008-03-21 at 23:19 -0400, Gregory Cooper wrote:
> Hi Dave,
> 
> This was a bug.  Thanks for pointing me at it; it should be fixed in
> svn now.  Let me know if you still encounter any such problems.
> 
> Greg
> 
> On Fri, Mar 21, 2008 at 7:49 PM, Dave Griffiths <dave at pawfal.org> wrote:
> > Hi Greg, all,
> >
> >  Why does the following code slowly use more and more cpu? I'm assuming
> >  that although visually the circles are being removed, something remains
> >  which is getting processed.
> >
> >  (require (lib "animation.ss" "frtime"))
> >
> >  (define (metro tick)
> >   (let ((tick (floor (* tick 1000))))
> >     (when-e (> (modulo (floor milliseconds) tick) (/ tick 2)))))
> >
> >  (define (truncate-list lst count)
> >   (cond
> >     ((zero? count) '())
> >     ((null? lst) '())
> >     (else (cons (car lst) (truncate-list (cdr lst) (- count 1))))))
> >
> >  (display-shapes
> >   (list
> >   (collect-b
> >    (metro 0.1) '()
> >    (lambda (e lst)
> >      (cons (make-circle (make-posn 50 (+ 50 (integral 0.2))) 10 "red")
> >            (truncate-list lst 4))))))
> >
> >  cheers,
> >
> >  dave
> >
> >  _________________________________________________
> >   For list-related administrative tasks:
> >   http://list.cs.brown.edu/mailman/listinfo/plt-scheme
> >