Mercurial > urweb
comparison src/mono_fooify.sml @ 2261:f81f1930c5d6
Fix SQL-parsing and declaration-ordering bugs.
author | Ziv Scully <ziv@mit.edu> |
---|---|
date | Wed, 30 Sep 2015 00:33:52 -0400 |
parents | 03b10c7fab9a |
children | 34ad83d9b729 |
comparison
equal
deleted
inserted
replaced
2260:03b10c7fab9a | 2261:f81f1930c5d6 |
---|---|
326 | 326 |
327 fun getNewFmDecls () = | 327 fun getNewFmDecls () = |
328 let | 328 let |
329 val fm = !canonicalFm | 329 val fm = !canonicalFm |
330 in | 330 in |
331 (* canonicalFm := Fm.enter fm; *) | 331 canonicalFm := Fm.enter fm; |
332 Fm.decls fm | 332 Fm.decls fm |
333 end | 333 end |
334 | 334 |
335 end | 335 end |