Mercurial > urweb

comparison lib/ur/listPair.ur @ 826:78504d97410b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix EDLet elab_util bug
author Adam Chlipala <adamc@hcoop.net>
date Thu, 28 May 2009 12:40:55 -0400
parents 5f49a6b759cb
children 74a1e3bdf430
comparison
equal deleted inserted replaced
825:7f871c03e3a1 826:78504d97410b
1 fun mapX (a ::: Type) (b ::: Type) (ctx ::: {Unit}) f = 1 fun mapX [a] [b] [ctx ::: {Unit}] f =
2 let 2 let
3 fun mapX' ls1 ls2 = 3 fun mapX' ls1 ls2 =
4 case (ls1, ls2) of 4 case (ls1, ls2) of
5 ([], []) => <xml/> 5 ([], []) => <xml/>
6 | (x1 :: ls1, x2 :: ls2) => <xml>{f x1 x2}{mapX' ls1 ls2}</xml> 6 | (x1 :: ls1, x2 :: ls2) => <xml>{f x1 x2}{mapX' ls1 ls2}</xml>