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

Reverting previous change. I figured it would break something. It breaks 

2008-05-18  Kevin Cozens  <kcozens@cvs.gnome.org>

	* plug-ins/script-fu/tinyscheme/scheme.c: Reverting previous change.
	I figured it would break something. It breaks the 'while' macro by
	preventing use of a named let.

svn path=/branches/gimp-2-4/; revision=25705
This commit is contained in:
Kevin Cozens 2008-05-18 20:52:36 +00:00 committed by Kevin Cozens
parent 9e7b80d0ed
commit 292fa49b28
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -1,3 +1,9 @@
2008-05-18 Kevin Cozens <kcozens@cvs.gnome.org>
* plug-ins/script-fu/tinyscheme/scheme.c: Reverting previous change.
I figured it would break something. It breaks the 'while' macro by
preventing use of a named let.
2008-05-16 Kevin Cozens <kcozens@cvs.gnome.org>
Merged from trunk:

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

@ -2777,8 +2777,6 @@ static pointer opexe_0(scheme *sc, enum scheme_opcodes op) {
new_slot_in_env(sc, caar(x), car(y));
}
if (is_symbol(car(sc->code))) { /* named let */
if (!is_pair(cadr(sc->code)))
Error_1(sc, "Bad syntax of binding spec in let :", car(sc->code));
for (x = cadr(sc->code), sc->args = sc->NIL; x != sc->NIL; x = cdr(x)) {
sc->args = cons(sc, caar(x), sc->args);