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:
commit
4efeb5c5f4
|
@ -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?))
|
||||
|
||||
)
|
||||
|
|
Loading…
Reference in New Issue
Block a user