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

R5RS compatability fix for parser (SourceForge bug #2866196)

This commit is contained in:
Kevin Cozens 2012-11-06 17:30:30 -05:00
parent 593ddb741f
commit 82f2c0b1ce
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -96,6 +96,7 @@ ts_output_string (TsOutputType type,
#define TOK_USCORE 13
#define BACKQUOTE '`'
#define DELIMITERS "()\";\f\t\v\n\r "
/*
* Basic memory allocation units
@ -4309,7 +4310,7 @@ static pointer opexe_5(scheme *sc, enum scheme_opcodes op) {
sc->tok = token(sc);
s_goto(sc,OP_RDSEXPR);
case TOK_ATOM:
s_return(sc,mk_atom(sc, readstr_upto(sc, "();\t\n\r ")));
s_return(sc,mk_atom(sc, readstr_upto(sc, DELIMITERS)));
case TOK_DQUOTE:
x=readstrexp(sc);
if(x==sc->F) {
@ -4340,7 +4341,7 @@ static pointer opexe_5(scheme *sc, enum scheme_opcodes op) {
}
}
case TOK_SHARP_CONST:
if ((x = mk_sharp_const(sc, readstr_upto(sc, "();\t\n\r "))) == sc->NIL) {
if ((x = mk_sharp_const(sc, readstr_upto(sc, DELIMITERS))) == sc->NIL) {
Error_0(sc,"undefined sharp expression");
} else {
s_return(sc,x);