Mercurial > urweb

diff src/compiler.sml @ 473:04b91c33ef54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 360cbc202756
children 9117a7bf229c
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