Files
gf-core/testsuite/compiler/renamer/funpatt.gf
2009-05-22 21:42:21 +00:00

14 lines
211 B
Plaintext

abstract funpatt = {
-- this should raise error
-- we cannot pattern match on functions
cat D ;
fun D1 : Int -> D ;
D2 : Int -> D ;
fun d : D -> Int ;
def d (D1 _) = 1 ;
d (D2 _) = 2 ;
}