Commit bedb7e31 authored by Kevin Cozens's avatar Kevin Cozens Committed by Kevin Cozens

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=/trunk/; revision=25706
parent 57a9451c
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-18 Michael Natterer <mitch@gimp.org>
* app/core/gimpcurve.c: implement (de)serializing of the points
......
......@@ -2780,8 +2780,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);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment