# HG changeset patch
# User Adam Chlipala <adamc@hcoop.net>
# Date 1226158438 18000
# Node ID 04b91c33ef5413cb5eed22ae32e7b53511865b36
# Parent  0f128cbc27583e644eed72e20822e58e87d4de90
Resolve all tag named in [Basis]; deal with C compilation failure without leaving /tmp files

diff -r 0f128cbc2758 -r 04b91c33ef54 src/compiler.sml
--- a/src/compiler.sml	Sat Nov 08 09:55:36 2008 -0500
+++ b/src/compiler.sml	Sat Nov 08 10:33:58 2008 -0500
@@ -567,7 +567,8 @@
                         (cname, oname,
                          fn () => (OS.FileSys.remove cname;
                                    OS.FileSys.remove oname;
-                                   OS.FileSys.rmDir dir))
+                                   OS.FileSys.rmDir dir)
+                            handle OS.SysErr _ => OS.FileSys.rmDir dir)
                     end
             val ename = #exe job
         in
diff -r 0f128cbc2758 -r 04b91c33ef54 src/urweb.grm
--- 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)))