diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-12-24 12:51:46 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-12-24 12:51:46 -0500 |
| commit | 64b7c504f9c1651a11f29a32a0c0ef5db6fdc982 (patch) | |
| tree | 2290cc76b2c5aad02afa9fef6639f8176913368f /src/print.sml | |
| parent | f7fb87aa9fdff765a3b0c862a3d262968b2977f1 (diff) | |
Add an extra Especialize pass before Rpcify
Diffstat (limited to 'src/print.sml')
| -rw-r--r-- | src/print.sml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/print.sml b/src/print.sml index 7329c44d..d4059edf 100644 --- a/src/print.sml +++ b/src/print.sml @@ -32,6 +32,8 @@ structure Print :> PRINT = struct 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) |