Mercurial > urweb
comparison src/monoize.sml @ 621:8998114760c1
"Hello world" compiles, after replacing type-level fold with map
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sat, 21 Feb 2009 15:33:20 -0500 |
parents | 5891f47d7cff |
children | 588b9d16b00a |
comparison
equal
deleted
inserted
replaced
620:d828b143e147 | 621:8998114760c1 |
---|---|
204 | 204 |
205 | L.CName _ => poly () | 205 | L.CName _ => poly () |
206 | 206 |
207 | L.CRecord _ => poly () | 207 | L.CRecord _ => poly () |
208 | L.CConcat _ => poly () | 208 | L.CConcat _ => poly () |
209 | L.CFold _ => poly () | 209 | L.CMap _ => poly () |
210 | L.CUnit => poly () | 210 | L.CUnit => poly () |
211 | 211 |
212 | L.CTuple _ => poly () | 212 | L.CTuple _ => poly () |
213 | L.CProj _ => poly () | 213 | L.CProj _ => poly () |
214 end | 214 end |