fix the funpatt testcase

This commit is contained in:
krasimir
2009-05-22 21:42:21 +00:00
parent 7f60804d5a
commit c520039f1c

View File

@@ -4,11 +4,11 @@ abstract funpatt = {
-- we cannot pattern match on functions
cat D ;
fun D1 : D ;
D2 : D ;
fun D1 : Int -> D ;
D2 : Int -> D ;
fun d : D -> Int ;
def d D1 = 1 ;
d D2 = 2 ;
def d (D1 _) = 1 ;
d (D2 _) = 2 ;
}