diff options
| -rw-r--r-- | src/specialize.sml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/specialize.sml b/src/specialize.sml index 43c634c7..6db16b6c 100644 --- a/src/specialize.sml +++ b/src/specialize.sml @@ -190,6 +190,12 @@ fun pat (p, st) = | SOME pn' => ((PCon (dk, PConVar pn', [], po), #2 p), st) end end + | PCon (dk, pc, args, SOME p') => + let + val (p', st) = pat (p', st) + in + ((PCon (dk, pc, args, SOME p'), #2 p), st) + end | PCon _ => (p, st) | PRecord xps => let |