This is the mail archive of the kawa@sources.redhat.com mailing list for the Kawa project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

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);
       }
   }
 

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]