gimp r24613 - in branches/gimp-2-4: . plug-ins/script-fu/scripts

[kcozens svn gnome org]

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

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

	Merged from trunk:

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


Modified:
   branches/gimp-2-4/ChangeLog
   branches/gimp-2-4/plug-ins/script-fu/scripts/script-fu-compat.init

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