[pure-lang-svn] SF.net SVN: pure-lang:[616] pure/trunk/interpreter.cc

[<ag...@us...>]

Revision: 616
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=616&view=rev
Author:   agraef
Date:     2008-08-26 00:24:38 +0000 (Tue, 26 Aug 2008)

Log Message:
-----------
Fix typo.

Modified Paths:
--------------
    pure/trunk/interpreter.cc

Modified: pure/trunk/interpreter.cc
===================================================================
--- pure/trunk/interpreter.cc	2008-08-26 00:05:35 UTC (rev 615)
+++ pure/trunk/interpreter.cc	2008-08-26 00:24:38 UTC (rev 616)
@@ -2194,8 +2194,8 @@
       return y;
   // application:
   case EXPR::APP:
-    if (x.xval1().tag() == EXPR::APP &&
-	x.xval1().xval1().tag() == symtab.catch_sym().f) {
+    if (y.xval1().tag() == EXPR::APP &&
+	y.xval1().xval1().tag() == symtab.catch_sym().f) {
       expr u = macred(x, y.xval1().xval2(), idx);
       expr v = macred(x, y.xval2(), idx);
       if (++idx == 0)


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.