summaryrefslogtreecommitdiff
path: root/src/compiler.sml
diff options
context:
space:
mode:
Diffstat (limited to 'src/compiler.sml')
-rw-r--r--src/compiler.sml6
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