[pure-lang-svn] SF.net SVN: pure-lang:[584] pure/trunk/test

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

Revision: 584
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=584&view=rev
Author:   agraef
Date:     2008-08-23 20:58:35 +0000 (Sat, 23 Aug 2008)

Log Message:
-----------
Cosmetic changes.

Modified Paths:
--------------
    pure/trunk/test/test020.log
    pure/trunk/test/test020.pure

Modified: pure/trunk/test/test020.log
===================================================================
--- pure/trunk/test/test020.log	2008-08-23 20:50:22 UTC (rev 583)
+++ pure/trunk/test/test020.log	2008-08-23 20:58:35 UTC (rev 584)
@@ -4716,23 +4716,23 @@
 pow,nan,1L%2L<:3L%4L,__failed__
 pow,nan,-inf,__failed__
 pow,nan,nan,__failed__
-puts "*** UNARY ***"$$void (catmap (\f/*0:*/ -> catmap (\x/*0:*/ -> [(f/*1:*/,x/*0:*/,test f/*1:*/ x/*0:*/)] {
-  rule #0: x = [(f,x,test f x)]
+puts "*** UNARY ***"$$void (catmap (\f/*0:*/ -> catmap (\x/*0:*/ -> [test f/*1:*/ x/*0:*/] {
+  rule #0: x = [test f x]
   state 0: #0
 	<var> state 1
   state 1: #0
 }) x {
-  rule #0: f = catmap (\x -> [(f,x,test f x)]) x
+  rule #0: f = catmap (\x -> [test f x]) x
   state 0: #0
 	<var> state 1
   state 1: #0
-}) f)$$puts "*** BINARY ***"$$void (catmap (\f/*0:*/ -> catmap (\x/*0:*/ -> [(f/*1:*/,x/*0:*/,test f/*1:*/ x/*0:*/)] {
-  rule #0: x = [(f,x,test f x)]
+}) f)$$puts "*** BINARY ***"$$void (catmap (\f/*0:*/ -> catmap (\x/*0:*/ -> [test f/*1:*/ x/*0:*/] {
+  rule #0: x = [test f x]
   state 0: #0
 	<var> state 1
   state 1: #0
 }) x2 {
-  rule #0: f = catmap (\x -> [(f,x,test f x)]) x2
+  rule #0: f = catmap (\x -> [test f x]) x2
   state 0: #0
 	<var> state 1
   state 1: #0

Modified: pure/trunk/test/test020.pure
===================================================================
--- pure/trunk/test/test020.pure	2008-08-23 20:50:22 UTC (rev 583)
+++ pure/trunk/test/test020.pure	2008-08-23 20:58:35 UTC (rev 584)
@@ -43,5 +43,5 @@
 show (x<:y) = show x+"<:"+show y;
 show x = str x otherwise;
 
-puts "*** UNARY ***" $$ void [f,x,test f x; f=f; x=x] $$
-puts "*** BINARY ***" $$ void [f,x,test f x; f=f2; x=x2];
+puts "*** UNARY ***" $$ void [test f x; f=f; x=x] $$
+puts "*** BINARY ***" $$ void [test f x; f=f2; x=x2];


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