Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /trunk/src/compiler/tree-il/tree-il-pp.sml
ViewVC logotype

Diff of /trunk/src/compiler/tree-il/tree-il-pp.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1379, Thu Jun 23 14:48:07 2011 UTC revision 1380, Thu Jun 23 19:20:07 2011 UTC
# Line 36  Line 36 
36                  in                  in
37                    lp :: argToS(args, rp :: l)                    lp :: argToS(args, rp :: l)
38                  end                  end
39            and toS (IL.E_Var x, l) = Var.name x :: l            and toS (IL.E_Var x, l) = (case (Var.kind x)
40                     of IL.VK_Global => "::" :: Var.name x :: l
41                      | _ => Var.name x :: l
42                    (* end case *))
43              | toS (IL.E_Lit lit, l) = Literal.toString lit :: l              | toS (IL.E_Lit lit, l) = Literal.toString lit :: l
44              | toS (IL.E_Op(rator, args), l) = Op.toString rator :: argsToS ("(", args, ")", l)              | toS (IL.E_Op(rator, args), l) = Op.toString rator :: argsToS ("(", args, ")", l)
45              | toS (IL.E_Apply(f, args), l) = ILBasis.toString f :: argsToS ("(", args, ")", l)              | toS (IL.E_Apply(f, args), l) = ILBasis.toString f :: argsToS ("(", args, ")", l)

Legend:
Removed from v.1379  
changed lines
  Added in v.1380

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0