diff src/urweb.grm @ 632:6c4643880df5

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
line wrap: on
line diff
--- a/src/urweb.grm	Tue Feb 24 14:04:07 2009 -0500
+++ b/src/urweb.grm	Tue Feb 24 15:12:13 2009 -0500
@@ -961,6 +961,7 @@
 
                                              val e = (EVar (["Basis"], "update", Infer), loc)
                                              val e = (ECApp (e, (CWild (KRecord (KType, loc), loc), loc)), loc)
+                                             val e = (EDisjointApp e, loc)
                                              val e = (EApp (e, (ERecord fsets, loc)), loc)
                                              val e = (EApp (e, texp), loc)
                                          in