callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Don't abort the top-level s-exp when loading a file. See SourceForge bug

Browse Source 
2007-12-11  Kevin Cozens  <kcozens@cvs.gnome.org>

	* plug-ins/script-fu/tinyscheme/scheme.c: Don't abort the top-level
	s-exp when loading a file. See SourceForge bug #1589711.

svn path=/trunk/; revision=24327
This commit is contained in:
Kevin Cozens
2007-12-12 01:56:49 +00:00
committed by Kevin Cozens
parent 38fd9dad2c
commit 8a685dd322
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -1,3 +1,8 @@
2007-12-11 Kevin Cozens <kcozens@cvs.gnome.org>
* plug-ins/script-fu/tinyscheme/scheme.c: Don't abort the top-level
s-exp when loading a file. See SourceForge bug #1589711.
2007-12-11 Kevin Cozens <kcozens@cvs.gnome.org> 2007-12-11 Kevin Cozens <kcozens@cvs.gnome.org>
* plug-ins/script-fu/tinyscheme/scheme.c: Applied changes from * plug-ins/script-fu/tinyscheme/scheme.c: Applied changes from

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

@ -2476,7 +2476,8 @@ static pointer opexe_0(scheme *sc, enum scheme_opcodes op) {
if (!file_push(sc,strvalue(car(sc->args)))) { if (!file_push(sc,strvalue(car(sc->args)))) {
Error_1(sc,"unable to open", car(sc->args)); Error_1(sc,"unable to open", car(sc->args));
} }
s_goto(sc,OP_T0LVL); else
{ s_retbool(1); }
case OP_T0LVL: /* top level */ case OP_T0LVL: /* top level */
if(file_interactive(sc)) { if(file_interactive(sc)) {