[gimp] Applied changes from CVS version 1.34 of official version of TinyScheme.

[Kevin Cozens <kcozens src gnome org>]

commit 272073a196ec9792081cad9ab091b06faad7790a
Author: Kevin Cozens <kcozens cvs gnome org>
Date:   Tue Sep 1 22:43:50 2009 -0400

    Applied changes from CVS version 1.34 of official version of TinyScheme.
    Fixed bug that could put the interpreter in to an endless loop on EOF in
    the example case "(define foo".

 plug-ins/script-fu/tinyscheme/scheme.c |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)
---
diff --git a/plug-ins/script-fu/tinyscheme/scheme.c b/plug-ins/script-fu/tinyscheme/scheme.c
index 145225f..a5b5bf2 100644
--- a/plug-ins/script-fu/tinyscheme/scheme.c
+++ b/plug-ins/script-fu/tinyscheme/scheme.c
@@ -4216,7 +4216,9 @@ static pointer opexe_5(scheme *sc, enum scheme_opcodes op) {
                sc->tok = token(sc);
           }
 */
-          if (sc->tok == TOK_RPAREN) {
+          if (sc->tok == TOK_EOF)
+               { s_return(sc,sc->EOF_OBJ); }
+          else if (sc->tok == TOK_RPAREN) {
                gunichar c = inchar(sc);
                if (c != '\n') backchar(sc,c);
                sc->nesting_stack[sc->file_i]--;