comparison lib/ur/list.urs @ 1322:80bff6449f41

Fix a bug in C list unurlification
author Adam Chlipala <adam@chlipala.net>
date Sun, 21 Nov 2010 15:43:24 -0500
parents 4172863d049d
children 9e0fa4f6ac93
comparison
equal deleted inserted replaced
1321:4172863d049d 1322:80bff6449f41
69 -> ($(exps ++ map (fn fields :: {Type} => $fields) tables) -> transaction (option t)) 69 -> ($(exps ++ map (fn fields :: {Type} => $fields) tables) -> transaction (option t))
70 -> transaction (list t) 70 -> transaction (list t)
71 71
72 val sort : a ::: Type -> (a -> a -> bool) (* > predicate *) -> t a -> t a 72 val sort : a ::: Type -> (a -> a -> bool) (* > predicate *) -> t a -> t a
73 73
74 val nth : a ::: Type -> list a -> int -> option a
75
74 (** Association lists *) 76 (** Association lists *)
75 77
76 val assoc : a ::: Type -> b ::: Type -> eq a -> a -> t (a * b) -> option b 78 val assoc : a ::: Type -> b ::: Type -> eq a -> a -> t (a * b) -> option b
77 79
78 val assocAdd : a ::: Type -> b ::: Type -> eq a -> a -> b -> t (a * b) -> t (a * b) 80 val assocAdd : a ::: Type -> b ::: Type -> eq a -> a -> b -> t (a * b) -> t (a * b)