From a6f7e9840c1227199d51dbf6ac00314f1cf051fc Mon Sep 17 00:00:00 2001
From: Mark Harrah <dmharrah@gmail.com>
Date: Sat, 9 Jul 2011 16:54:41 -0400
Subject: [PATCH] global settings preparation: separate compilation/loading
 stages of Eval

---
 util/collection/TypeFunctions.scala | 1 +
 1 file changed, 1 insertion(+)

diff --git a/util/collection/TypeFunctions.scala b/util/collection/TypeFunctions.scala
index 8f542fb99..185c72226 100644
--- a/util/collection/TypeFunctions.scala
+++ b/util/collection/TypeFunctions.scala
@@ -15,6 +15,7 @@ trait TypeFunctions
 	final val right = new (Id ~> P1of2[Right, Nothing]#Apply) { def apply[T](t: T) = Right(t) }
 	final val some = new (Id ~> Some) { def apply[T](t: T) = Some(t) }
 	final def idFun[T] = (t: T) => t
+	final def const[A,B](b: B): A=> B = _ => b
 	
 	def nestCon[M[_], N[_], G[_]](f: M ~> N): (M ∙ G)#l ~> (N ∙ G)#l =
 		f.asInstanceOf[(M ∙ G)#l ~> (N ∙ G)#l] // implemented with a cast to avoid extra object+method call.  castless version: