[pure-lang-svn] SF.net SVN: pure-lang:[520] pure/trunk/lib

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

Revision: 520
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=520&view=rev
Author:   agraef
Date:     2008-08-17 11:46:10 +0000 (Sun, 17 Aug 2008)

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

Modified Paths:
--------------
    pure/trunk/lib/array.pure
    pure/trunk/lib/system.pure

Modified: pure/trunk/lib/array.pure
===================================================================
--- pure/trunk/lib/array.pure	2008-08-17 11:40:00 UTC (rev 519)
+++ pure/trunk/lib/array.pure	2008-08-17 11:46:10 UTC (rev 520)
@@ -40,7 +40,7 @@
    a!!is		slicing (get a list of values from a list
 			indices
    a!!ijs		slicing of two-dimensional array (from a given
-			list of pairs (i, j):...:[])
+			list of pairs [(i, j), ...])
 
    null a		tests whether a is the empty array
    members a		list of values stored in a

Modified: pure/trunk/lib/system.pure
===================================================================
--- pure/trunk/lib/system.pure	2008-08-17 11:40:00 UTC (rev 519)
+++ pure/trunk/lib/system.pure	2008-08-17 11:46:10 UTC (rev 520)
@@ -603,7 +603,7 @@
 regs info = myregs 0 info with
   myregs n (p,s,infos)	= (n,p,s):myregs (n+1) infos if p>=0;
 			= myregs (n+1) infos otherwise;
-  myregs n (p,s)	= (n,p,s):[] if p>=0;
+  myregs n (p,s)	= [(n,p,s)] if p>=0;
 			= [] otherwise;
 end;
 


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