[gimp] Eliminated compiler warning (from SVN version 71 of the TinyScheme project)

[Kevin Cozens <kcozens src gnome org>]

commit d2d6edc687bd56ac2cf1e56e9d827b35369236e1
Author: Kevin Cozens <kcozens cvs gnome org>
Date:   Wed Feb 9 01:36:24 2011 -0500

    Eliminated compiler warning (from SVN version 71 of the TinyScheme project)

 plug-ins/script-fu/tinyscheme/scheme.c |   12 ++++++------
 1 files changed, 6 insertions(+), 6 deletions(-)
---
diff --git a/plug-ins/script-fu/tinyscheme/scheme.c b/plug-ins/script-fu/tinyscheme/scheme.c
index 946808c..b7b1823 100644
--- a/plug-ins/script-fu/tinyscheme/scheme.c
+++ b/plug-ins/script-fu/tinyscheme/scheme.c
@@ -2460,8 +2460,13 @@ static INLINE pointer slot_value_in_env(pointer slot)
 
 
 static pointer _Error_1(scheme *sc, const char *s, pointer a) {
-#if SHOW_ERROR_LINE
      const char *str = s;
+#if USE_ERROR_HOOK
+     pointer x;
+     pointer hdl=sc->ERROR_HOOK;
+#endif
+
+#if SHOW_ERROR_LINE
      char sbuf[STRBUFFSIZE];
 
      /* make sure error is not in REPL */
@@ -2478,14 +2483,9 @@ static pointer _Error_1(scheme *sc, const char *s, pointer a) {
 
        str = (const char*)sbuf;
      }
-#else
-     const char *str = s;
 #endif
 
 #if USE_ERROR_HOOK
-     pointer x;
-     pointer hdl=sc->ERROR_HOOK;
-
      x=find_slot_in_env(sc,sc->envir,hdl,1);
     if (x != sc->NIL) {
          if(a!=0) {