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