diff src/print.sml @ 1362:fd34210bc3e5

Add an extra Especialize pass before Rpcify
author Adam Chlipala <adam@chlipala.net>
date Fri, 24 Dec 2010 12:51:46 -0500
parents 73456bfde988
children
line wrap: on
line diff
--- a/src/print.sml	Thu Dec 23 18:07:05 2010 -0500
+++ b/src/print.sml	Fri Dec 24 12:51:46 2010 -0500
@@ -32,6 +32,8 @@
 structure SM = TextIOPP
 structure PD = PPDescFn(SM)
 
+val openOut = SM.openOut
+
 type 'a printer = 'a -> PD.pp_desc
 
 fun box ds = PD.hovBox (PD.PPS.Rel 1, ds)