diff options
| -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 |