diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-12-12 10:57:41 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-12-12 10:57:41 -0500 |
| commit | d748d2eb08af600eacc02e5b9a14e4aad1c7d0ac (patch) | |
| tree | b3a6842bb8b0c48c8b55d2e20702f78d553c775e /src/compiler.sml | |
| parent | 20c074b4a6082a5687278c6df85e7ad0234c7556 (diff) | |
Fix merging of prefix settings
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 10a63d51..4fa4fcc8 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -617,11 +617,7 @@ fun parseUrp' accLibs fname = (("", ""), "")) in case cmd of - "prefix" => - (case !prefix of - NONE => () - | SOME _ => ErrorMsg.error "Duplicate 'prefix' directive"; - prefix := SOME arg) + "prefix" => prefix := SOME arg | "database" => (case !database of NONE => database := SOME arg |