[racket] problem with pict->bitmap and mrlib/write-animated-gif

Can't figure it out, but something in the interaction between pict->bitmap
and write-animated-gif is causing the frames to display one on top of the
other when viewing the gif.

#lang racket

(require pict
         mrlib/gif)

(define (draw-frame i)
  (pict->bitmap (circle (* 50 i))))

(write-animated-gif
 (map draw-frame (sequence->list (in-range 1 10)))
 10
 "test1.gif"
 #:loop? true
 #:one-at-a-time? true)

martin
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20140927/9a4a2d74/attachment.html>