changeset 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 0f128cbc2758
children 70ee90105fce
files src/compiler.sml src/urweb.grm
diffstat 2 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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)))