diff options
| author |  Benjamin Barenblat <bbaren@mit.edu> | 2015-11-22 10:39:36 -0500 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@mit.edu> | 2015-11-22 10:39:36 -0500 |
| commit | bf037ce78c2c76a34ecca0fb8bafa5d5be38968a (patch) | |
| tree | 3e91b0d0e8e0fb704c7df444283b6c8c63351f95 /src/compiler.sml | |
| parent | 7d861ea0debf944cb8e3e38d73a8c0197de574b3 (diff) | |
| parent | 638e838a81e1ccc6594fda1920df441eb21577ae (diff) | |
Merge branch 'upstream' into dfsg_clean20151122+dfsg
Diffstat (limited to 'src/compiler.sml')
| -rw-r--r-- | src/compiler.sml | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index 8f6d1fad..99f2ff31 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -413,11 +413,7 @@ fun inputCommentableLine inf = val lastUrp = ref "" fun parseUrp' accLibs fname = - (if !lastUrp = fname then - () - else - ModDb.reset (); - lastUrp := fname; + (lastUrp := fname; if not (Posix.FileSys.access (fname ^ ".urp", []) orelse Posix.FileSys.access (fname ^ "/lib.urp", [])) andalso Posix.FileSys.access (fname ^ ".ur", []) then let |