[gimp] Fixed cut and paste error that put R5RS fix before the setting of a variable.

[Kevin Cozens <kcozens src gnome org>]

commit 422248d42a10b594df3476958ed85d3cd3b3c871
Author: Kevin Cozens <kcozens cvs gnome org>
Date:   Thu Mar 17 21:42:12 2011 -0400

    Fixed cut and paste error that put R5RS fix before the setting of a variable.

 plug-ins/script-fu/tinyscheme/scheme.c |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/plug-ins/script-fu/tinyscheme/scheme.c b/plug-ins/script-fu/tinyscheme/scheme.c
index 4ff01a9..6571405 100644
--- a/plug-ins/script-fu/tinyscheme/scheme.c
+++ b/plug-ins/script-fu/tinyscheme/scheme.c
@@ -3337,10 +3337,10 @@ static pointer opexe_2(scheme *sc, enum scheme_opcodes op) {
           if(cdr(sc->args)==sc->NIL) {
                Error_0(sc,"expt: needs two arguments");
           } else {
+               pointer y=cadr(sc->args);
                /* This 'if' is an R5RS compatability fix. */
                if (rvalue(x) == 0 && rvalue(y) < 0)
                    s_return(sc, mk_real(sc, 0));
-               pointer y=cadr(sc->args);
                s_return(sc, mk_real(sc, pow(rvalue(x),rvalue(y))));
           }