[svn] r6054: nemerle/trunk: macros/Util.n ncc/testsuite/positive/list-compr.n

[malekith]

Log:
Allow $[x..y] to mean $[q|q in [x..y]].

Author: malekith
Date: Sat Jan  7 17:57:58 2006
New Revision: 6054

Modified:
   nemerle/trunk/macros/Util.n
   nemerle/trunk/ncc/testsuite/positive/list-compr.n

Modified: nemerle/trunk/macros/Util.n
==============================================================================
--- nemerle/trunk/macros/Util.n	(original)
+++ nemerle/trunk/macros/Util.n	Sat Jan  7 17:57:58 2006
@@ -342,6 +342,14 @@
           }
         });
 
+    match (exprs) {
+      | [<[ $second .. $last ]>] =>
+        <[ $[ x | x in [$second .. $last]] ]>
+
+      | [<[ $first ]>, <[ $second .. $last ]>] =>
+        <[ $[ x | x in [$first, $second .. $last]] ]>
+        
+      | _ =>
     <[
         mutable head = null;
         mutable tail = null;
@@ -352,4 +360,6 @@
           head
     ]>
   }
+
+  }
 }

Modified: nemerle/trunk/ncc/testsuite/positive/list-compr.n
==============================================================================
--- nemerle/trunk/ncc/testsuite/positive/list-compr.n	(original)
+++ nemerle/trunk/ncc/testsuite/positive/list-compr.n	Sat Jan  7 17:57:58 2006
@@ -29,6 +29,9 @@
 foreach (x in [1 ..5]) WriteLine (x)
 foreach (x in [5, 4..1]) WriteLine (x)
 
+WriteLine ($[1 .. 10])
+WriteLine ($[1, 3 .. 10])
+
 /*
 BEGIN-OUTPUT
 [(2, 1), (3, 1), (3, 2)]
@@ -65,5 +68,7 @@
 3
 2
 1
+[1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
+[1, 3, 5, 7, 9]
 END-OUTPUT
 */