gimp r25705 - in branches/gimp-2-4: . plug-ins/script-fu/tinyscheme

[kcozens svn gnome org]

Author: kcozens
Date: Sun May 18 20:52:36 2008
New Revision: 25705
URL: http://svn.gnome.org/viewvc/gimp?rev=25705&view=rev

Log:
2008-05-18  Kevin Cozens  <kcozens cvs gnome org>

	* plug-ins/script-fu/tinyscheme/scheme.c: Reverting previous change.
	I figured it would break something. It breaks the 'while' macro by
	preventing use of a named let.


Modified:
   branches/gimp-2-4/ChangeLog
   branches/gimp-2-4/plug-ins/script-fu/tinyscheme/scheme.c

Modified: branches/gimp-2-4/plug-ins/script-fu/tinyscheme/scheme.c
==============================================================================
--- branches/gimp-2-4/plug-ins/script-fu/tinyscheme/scheme.c	(original)
+++ branches/gimp-2-4/plug-ins/script-fu/tinyscheme/scheme.c	Sun May 18 20:52:36 2008
@@ -2777,8 +2777,6 @@
                new_slot_in_env(sc, caar(x), car(y));
           }
           if (is_symbol(car(sc->code))) {    /* named let */
-               if (!is_pair(cadr(sc->code)))
-                    Error_1(sc, "Bad syntax of binding spec in let :", car(sc->code));
                for (x = cadr(sc->code), sc->args = sc->NIL; x != sc->NIL; x = cdr(x)) {
 
                     sc->args = cons(sc, caar(x), sc->args);