improve macros and docs for mpairs inside; change mrlib/gif to use scheme/base keywords

svn: r10781

original commit: 447698bce142bc926a521141168b4d0a784c88f5
This commit is contained in:
Matthew Flatt 2008-07-15 19:29:08 +00:00
commit 4efeb5c5f4

View File

@ -1,12 +1,9 @@
(module gif mzscheme
(require mzlib/class
mzlib/file
mred
(module gif scheme/base
(require scheme/gui/base
scheme/class
net/gifwrite
mzlib/contract
mzlib/kw
mzlib/etc)
scheme/contract)
(provide write-gif
write-animated-gif)
@ -69,7 +66,7 @@
(define (write-gif bm filename)
(write-gifs (list bm) #f filename #f))
(define/kw (write-animated-gif bms delay filename #:key [one-at-a-time? #f])
(define (write-animated-gif bms delay filename #:one-at-a-time? [one-at-a-time? #f])
(write-gifs bms delay filename one-at-a-time?))
)