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 | e7594802217682a5ac490bbe53e88e26dcade4b9 (patch) | |
| tree | b3a6842bb8b0c48c8b55d2e20702f78d553c775e | |
| parent | f52635b782fab64b3ef306da22ad3eb7eeeaabfe (diff) | |
Fix merging of prefix settings
| -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 |