diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-10-01 21:37:16 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-10-01 21:48:15 +0200 |
commit | acbe712fd643516ff63ecfe3e106deb695dbd9b3 (patch) | |
tree | ce7fa05699bdbe6aaba3fe9af234821a3da69cfd /test-suite/output | |
parent | 2e7c8893e6df7af924dba0291f70dd6fa771cb78 (diff) |
Fix bug #4661: Cannot mask the absolute name.
The patch is quite dumb: it essentially consists in alpha-renaming bound
module names when printing a functor, by checking that the name was not
already present, and generating a fresh one otherwise.
Diffstat (limited to 'test-suite/output')
-rw-r--r-- | test-suite/output/PrintModule.out | 1 | ||||
-rw-r--r-- | test-suite/output/PrintModule.v | 16 |
2 files changed, 17 insertions, 0 deletions
diff --git a/test-suite/output/PrintModule.out b/test-suite/output/PrintModule.out index db464fd07..751d5fcc4 100644 --- a/test-suite/output/PrintModule.out +++ b/test-suite/output/PrintModule.out @@ -2,3 +2,4 @@ Module N : S with Definition T := nat := M Module N : S with Module T := K := M +Module Type Func = Funsig (T0:Test) Sig Parameter x : T0.t. End diff --git a/test-suite/output/PrintModule.v b/test-suite/output/PrintModule.v index 999d9a986..5f30f7cda 100644 --- a/test-suite/output/PrintModule.v +++ b/test-suite/output/PrintModule.v @@ -32,3 +32,19 @@ Module N : S with Module T := K := M. Print Module N. End BAR. + +Module QUX. + +Module Type Test. + Parameter t : Type. +End Test. + +Module Type Func (T:Test). + Parameter x : T.t. +End Func. + +Module Shortest_path (T : Test). +Print Func. +End Shortest_path. + +End QUX. |