diff options
| -rw-r--r-- | src/compiler.sml | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index e8da379c..9a25902a 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -391,12 +391,9 @@ fun parseUrp' accLibs fname = val fname' = Substring.extract (fname, 1, NONE) val (befor, after) = Substring.splitl (fn ch => ch <> #"/") fname' in - if Substring.isEmpty after then - fname - else - case M.find (!pathmap, Substring.string befor) of - NONE => fname - | SOME rep => rep ^ Substring.string after + case M.find (!pathmap, Substring.string befor) of + NONE => fname + | SOME rep => rep ^ Substring.string after end else fname |