gimp r24612 - in trunk: . plug-ins/script-fu/scripts

[kcozens svn gnome org]

Author: kcozens
Date: Tue Jan 15 03:51:05 2008
New Revision: 24612
URL: http://svn.gnome.org/viewvc/gimp?rev=24612&view=rev

Log:
2008-01-14  Kevin Cozens  <kcozens cvs gnome org>

	*  plug-ins/script-fu/scripts/script-fu-compat.init: Fixed definition
	of 'prog1' due to recent fixes enforcing R5RS syntax for 'let'.


Modified:
   trunk/ChangeLog
   trunk/plug-ins/script-fu/scripts/script-fu-compat.init

Modified: trunk/plug-ins/script-fu/scripts/script-fu-compat.init
==============================================================================
--- trunk/plug-ins/script-fu/scripts/script-fu-compat.init	(original)
+++ trunk/plug-ins/script-fu/scripts/script-fu-compat.init	Tue Jan 15 03:51:05 2008
@@ -330,8 +330,7 @@
 )
 
 (define (prog1 form1 . form2)
-  (let ((a))
-    (set! a form1)
+  (let ((a form1))
     (if (not (null? form2))
       form2
     )