dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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

This commit is contained in:
Kevin Cozens 2011-02-09 01:36:24 -05:00
parent aaee95d545
commit d2d6edc687
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
plug-ins/script-fu/tinyscheme/scheme.c
View File

@ -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) {