[svn] r7397: nemerle/trunk/lib/internal-numbered.n

[nazgul]

Log:
Add compose and pipeline operators. Fix error message for incorrect overloads

Author: nazgul
Date: Wed Feb  7 18:43:13 2007
New Revision: 7397

Modified:
   nemerle/trunk/lib/internal-numbered.n

Modified: nemerle/trunk/lib/internal-numbered.n
==============================================================================
--- nemerle/trunk/lib/internal-numbered.n	(original)
+++ nemerle/trunk/lib/internal-numbered.n	Wed Feb  7 18:43:13 2007
@@ -52,6 +52,26 @@
 [DebuggerNonUserCode]
 public abstract class Function ['p1, 'r]
 {
+  public static @>>[B] (fab : 'p1 -> B, fbc : B -> 'r) : 'p1 -> 'r
+  {
+    a => fbc(fab(a))
+  }
+
+  public static @>>[B] (fab : void -> B, fbc : B -> 'r) : void -> 'r
+  {
+    () => fbc(fab())
+  }
+  
+  public static @|> (a : 'p1, fac : 'p1 -> 'r) : 'r
+  {
+    fac(a)
+  }    
+
+  public static @|> (a : 'p1, fac : 'p1 -> void) : void
+  {
+    fac(a)
+  }    
+      
   public abstract apply (_ : 'p1) : 'r;
 }