diff src/urweb.grm @ 473:04b91c33ef54

Resolve all tag named in [Basis]; deal with C compilation failure without leaving /tmp files
author Adam Chlipala <adamc@hcoop.net>
date Sat, 08 Nov 2008 10:33:58 -0500
parents 20fab0e96217
children 6ee1c761818f
line wrap: on
line diff
--- a/src/urweb.grm	Sat Nov 08 09:55:36 2008 -0500
+++ b/src/urweb.grm	Sat Nov 08 10:33:58 2008 -0500
@@ -1069,7 +1069,7 @@
                                              val pos = s (BEGIN_TAGleft, BEGIN_TAGright)
                                          in
                                              (bt,
-                                              (EVar ([], bt, Infer), pos))
+                                              (EVar (["Basis"], bt, Infer), pos))
                                          end)
        | tagHead LBRACE cexp RBRACE     (#1 tagHead, (ECApp (#2 tagHead, cexp), s (tagHeadleft, RBRACEright)))