From bedb7e3163f6fb8189bc32b1924b308ec5877c7f Mon Sep 17 00:00:00 2001 From: Kevin Cozens Date: Sun, 18 May 2008 21:20:12 +0000 Subject: [PATCH] Reverting previous change. I figured it would break something. It breaks 2008-05-18 Kevin Cozens * 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. svn path=/trunk/; revision=25706 --- ChangeLog | 6 ++++++ plug-ins/script-fu/tinyscheme/scheme.c | 2 -- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 276c8533ba..47e1c8ff35 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2008-05-18 Kevin Cozens + + * 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. + 2008-05-18 Michael Natterer * app/core/gimpcurve.c: implement (de)serializing of the points diff --git a/plug-ins/script-fu/tinyscheme/scheme.c b/plug-ins/script-fu/tinyscheme/scheme.c index c2eae3c0b1..17403e0145 100644 --- a/plug-ins/script-fu/tinyscheme/scheme.c +++ b/plug-ins/script-fu/tinyscheme/scheme.c @@ -2780,8 +2780,6 @@ static pointer opexe_0(scheme *sc, enum scheme_opcodes op) { 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);