diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2016-02-07 20:41:34 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2016-02-07 20:41:34 -0500 |
| commit | 7b379c724999c4b415b1c3826db748450c7a6571 (patch) | |
| tree | 08d7b9d994d351f9480e09f06170f3daf77e8549 /src/elaborate.sml | |
| parent | 5579b84a97cb942fdfd4c4898793f9de95bc03d1 (diff) | |
Finish removing PWild; only load a library once, even if referenced multiple times in a .urp tree
Diffstat (limited to 'src/elaborate.sml')
| -rw-r--r-- | src/elaborate.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/elaborate.sml b/src/elaborate.sml index 9765b090..6965adfd 100644 --- a/src/elaborate.sml +++ b/src/elaborate.sml @@ -1565,7 +1565,7 @@ fun elabPat (pAll as (p, loc), (env, bound)) = case p of L.PVar x => let - val t = if SS.member (bound, x) then + val t = if x <> "_" andalso SS.member (bound, x) then (expError env (DuplicatePatternVariable (loc, x)); terror) else |