annotate tests/openRedef.ur @ 2082:1b76ae703cbb

Some more optimization of string expressions showing up in JSON generation (Meta library)
author Adam Chlipala <adam@chlipala.net>
date Wed, 03 Dec 2014 21:06:15 -0500
parents cccf8bf64b30
children
rev   line source
adam@1527 1 structure M = struct
adam@1527 2 con num = int
adam@1527 3 val zero = 0
adam@1527 4 end
adam@1527 5
adam@1527 6 structure N = struct
adam@1527 7 open M
adam@1527 8 con num = num * num
adam@1527 9 val zero = zero + 1
adam@1527 10 end
adam@1527 11
adam@1527 12 structure O = struct
adam@1527 13 open N
adam@1527 14
adam@1527 15 val one : num = (zero + 1, zero)
adam@1527 16 end