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 append by Doug Currie. (SourceForge bug #3400202) 

Append with one argument should return the argument but not as a list.
This commit is contained in:
Kevin Cozens 2011-08-29 16:08:47 -04:00
parent 5d61a737a7
commit 5d3be5be3c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -495,7 +495,7 @@ static num num_rem(num a, num b) {
e1=num_ivalue(a);
e2=num_ivalue(b);
res=e1%e2;
/* modulo should have same sign as second operand */
/* remainder should have same sign as second operand */
if (res > 0) {
if (e1 < 0) {
res -= labs(e2);
@ -3985,7 +3985,7 @@ static pointer opexe_4(scheme *sc, enum scheme_opcodes op) {
}
x=car(sc->args);
if(cdr(sc->args)==sc->NIL) {
s_return(sc,sc->args);
s_return(sc,x);
}
for (y = cdr(sc->args); y != sc->NIL; y = cdr(y)) {
x=append(sc,x,car(y));