fix definition of Any

a533f667 · John van Groningen · 9412550d · a533f667 · a533f667
Commit a533f667 authored Apr 04, 2011 by John van Groningen
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 5 deletions

StdOverloadedList.dcl StdOverloadedList.dcl +2 -2

StdOverloadedList.icl StdOverloadedList.icl +3 -3

No files found.
--- a/StdOverloadedList.dcl
+++ b/StdOverloadedList.dcl
@@ -442,9 +442,9 @@ Or :: !u:(l v:Bool) -> Bool | List l Bool,[u<=v]

 Any p l :== any_ l
 	where		
-		any_ []
+		any_ [|]
 			= False
-		any_ [b : tl]
+		any_ [|b : tl]
 			= p b || any_ tl

 All p l :== all_ l

--- a/StdOverloadedList.icl
+++ b/StdOverloadedList.icl
@@ -649,10 +649,10 @@ Or [|b : tl]
 	= b || Or tl

 Any p l :== any_ l
-	where		
-		any_ []
+	where
+		any_ [|]
 			= False
-		any_ [b : tl]
+		any_ [|b : tl]
 			= p b || any_ tl

 All p l :== all_ l