diff options
author | Adam Chlipala <adam@chlipala.net> | 2017-03-31 17:35:05 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2017-03-31 17:35:05 -0400 |
commit | 680da1afd0b8d2f4b4a6b4ec0ef3bad48d0babde (patch) | |
tree | 1afb2917fb6891741d056d2fdeae3fd3fe93ed21 /src/elab_print.sml | |
parent | a478380e74c658637c90436c4e78c894f7076f4c (diff) |
Fix normalization of signatures that project signatures from other modules with multi-element paths (fixes #72)
Diffstat (limited to 'src/elab_print.sml')
-rw-r--r-- | src/elab_print.sml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/elab_print.sml b/src/elab_print.sml index 06ea097f..8a6a651a 100644 --- a/src/elab_print.sml +++ b/src/elab_print.sml @@ -678,7 +678,7 @@ and p_sgn env (sgn, _) = space, string ":", space, - p_sgn (E.pushStrNamedAs env x n sgn) sgn'] + p_sgn (E.pushStrNamedAs' false env x n sgn) sgn'] | SgnWhere (sgn, ms, x, c) => box [p_sgn env sgn, space, string "where", @@ -695,7 +695,7 @@ and p_sgn env (sgn, _) = val m1x = #1 (E.lookupStrNamed env m1) handle E.UnboundNamed _ => "UNBOUND_SGN_" ^ Int.toString m1 - val m1s = if !debug then + val m1x = if !debug then m1x ^ "__" ^ Int.toString m1 else m1x @@ -867,7 +867,7 @@ and p_str env (str, _) = string s] | StrFun (x, n, sgn, sgn', str) => let - val env' = E.pushStrNamedAs env x n sgn + val env' = E.pushStrNamedAs' false env x n sgn in box [string "functor", space, |