Mercurial > urweb
annotate tests/xcomments.ur @ 2195:18e6fb487880
Reduce: add reduction in some spots previously missed, associated with 'case' return types
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Wed, 25 Nov 2015 18:48:17 -0500 |
| parents | 43ca083678f8 |
| children |
| rev | line source |
|---|---|
| adam@1283 | 1 fun foo () = <xml>Hi!</xml> |
| adam@1283 | 2 |
| adam@1283 | 3 (* fun bar () = return (* No *)<xml>Yes!</xml> *) |
| adam@1283 | 4 |
| adam@1283 | 5 fun main () = return <xml><body> |
| adam@1283 | 6 A (* B *) C (* D (* E *) F *) D<br/> |
| adam@1284 | 7 <b>A</b> <i>(* B *) C <b>D (* E <!-- 7 --> *) F {foo ()}</b></i> |
| adam@1284 | 8 A <!-- B --> C <!-- D (* E *) F --> D<br/> |
| adam@1284 | 9 <b>A</b> <i><!-- B --> C <b>D <!-- E --> F {foo ()}</b></i> |
| adam@1283 | 10 </body></xml> |