Commit b93a15b1 authored by Kevin Cozens's avatar Kevin Cozens Committed by Kevin Cozens
Browse files

Moved two set!'s in to the let block.

2005-05-04  Kevin Cozens  <kcozens@cvs.gimp.org>

	* scripts/tiny-fu-set-cmap.sct: Moved two set!'s in to the let block.
parent 417850db
......@@ -24,15 +24,12 @@
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
(define (tiny-fu-make-cmap-array palette)
(let (
(num-colours)
(colour)
(cmap)
(i 0)
)
(set! num-colours (car (gimp-palette-get-info palette)))
(set! cmap (cons-array (* num-colours 3) 'byte))
(let* (
(num-colours (car (gimp-palette-get-info palette)))
(cmap (cons-array (* num-colours 3) 'byte))
(colour)
(i 0)
)
(while (< i num-colours)
(set! colour (car (gimp-palette-entry-get-color palette i)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment