This is the mail archive of the
kawa@sources.redhat.com
mailing list for the Kawa project.
Re: begin at top-level?
Chris Dean wrote:
Hmm. My read of R5RS for non-define forms is that only the value of
FORM2 is returned:
The <expression>s are evaluated sequentially from left to right, and
the value(s) of the last <expression> is(are) returned.
I guess so. The attached patch seems to fix it.
--
--Per Bothner
per@bothner.com http://per.bothner.com/
Index: kawa/lang/Translator.java
===================================================================
RCS file: /cvs/kawa/kawa/kawa/lang/Translator.java,v
retrieving revision 1.101
diff -u -r1.101 Translator.java
--- kawa/lang/Translator.java 7 Jan 2005 21:18:18 -0000 1.101
+++ kawa/lang/Translator.java 12 Jan 2005 02:21:15 -0000
@@ -1068,11 +1063,7 @@
for (int i = 0; i < nforms; i++)
exps[i] = (Expression) formStack.elementAt(first + i);
formStack.setSize(first);
- if (scope instanceof ModuleExp)
- return new ApplyExp(gnu.kawa.functions.AppendValues.appendValues,
- exps);
- else
- return ((LispInterpreter) getInterpreter()).makeBody(exps);
+ return ((LispInterpreter) getInterpreter()).makeBody(exps);
}
}