diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-12-08 10:46:50 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-12-08 10:46:50 -0500 |
| commit | 43baaca3a84baa6005a2705774a4e08e94b882e2 (patch) | |
| tree | 7a41d068fbf90d72aa9a1aea897a2143c247f276 /src/compiler.sml | |
| parent | cedf3666d550194f7bee7037a41ecc1e561e2af1 (diff) | |
Context globals; ctype functions
Diffstat (limited to 'src/compiler.sml')
| -rw-r--r-- | src/compiler.sml | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index 0d61b361..c8059c6e 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -508,7 +508,14 @@ fun parseUrp' fname = | SOME _ => ErrorMsg.error "Duplicate 'timeout' directive"; timeout := SOME (valOf (Int.fromString arg))) | "ffi" => ffi := relify arg :: !ffi - | "link" => link := relifyA arg :: !link + | "link" => let + val arg = if size arg >= 2 andalso String.substring (arg, 0, 2) = "-l" then + arg + else + relifyA arg + in + link := arg :: !link + end | "include" => headers := relifyA arg :: !headers | "script" => scripts := arg :: !scripts | "clientToServer" => clientToServer := ffiS () :: !clientToServer |