Mercurial > urweb

comparison src/urweb.grm @ 632:6c4643880df5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Demos compile again, with manual folders
author Adam Chlipala <adamc@hcoop.net>
date Tue, 24 Feb 2009 15:12:13 -0500
parents e68de2a5506b
children fab5998b840e
comparison
equal deleted inserted replaced
631:effa7d43aac3 632:6c4643880df5
959 (let 959 (let
960 val loc = s (LPARENleft, RPARENright) 960 val loc = s (LPARENleft, RPARENright)
961 961
962 val e = (EVar (["Basis"], "update", Infer), loc) 962 val e = (EVar (["Basis"], "update", Infer), loc)
963 val e = (ECApp (e, (CWild (KRecord (KType, loc), loc), loc)), loc) 963 val e = (ECApp (e, (CWild (KRecord (KType, loc), loc), loc)), loc)
964 val e = (EDisjointApp e, loc)
964 val e = (EApp (e, (ERecord fsets, loc)), loc) 965 val e = (EApp (e, (ERecord fsets, loc)), loc)
965 val e = (EApp (e, texp), loc) 966 val e = (EApp (e, texp), loc)
966 in 967 in
967 (EApp (e, sqlexp), loc) 968 (EApp (e, sqlexp), loc)
968 end) 969 end)