diff options
author | 2008-11-08 10:33:58 -0500 | |
---|---|---|
committer | 2008-11-08 10:33:58 -0500 | |
commit | 79e0beea4d86f0777f1803d695b0f135100d0eb5 (patch) | |
tree | 668e1182a47e66702fa97dbef4025dd9c1df40ac /src/compiler.sml | |
parent | 001d4ac1ca69ff58706f007d079e28ff24ab252f (diff) |
Resolve all tag named in [Basis]; deal with C compilation failure without leaving /tmp files
Diffstat (limited to 'src/compiler.sml')
-rw-r--r-- | src/compiler.sml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index de0490c3..bde16fd3 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -567,7 +567,8 @@ fun compile job = (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 |