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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/c-util/tree-to-c.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/c-util/tree-to-c.sml

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

revision 3375, Fri Nov 6 02:46:46 2015 UTC revision 3376, Fri Nov 6 11:52:05 2015 UTC
# Line 383  Line 383 
383                          (fn (elem, acc) => mkElemFmt(elemTy, elem, acc))                          (fn (elem, acc) => mkElemFmt(elemTy, elem, acc))
384                            ([], args) elems                            ([], args) elems
385                  in                  in
386                    ("<" :: String.concatWith "," seqFmt :: ">" :: fmt, args)                    ("[" :: String.concatWith "," seqFmt :: "]" :: fmt, args)
387                  end                  end
388            val (stms, fmt, args) = ListPair.foldr mkFmt ([], [], []) (tys, args)            val (stms, fmt, args) = ListPair.foldr mkFmt ([], [], []) (tys, args)
389            val stm = CL.mkCall("fprintf", CL.mkVar "stderr" :: CL.mkStr(String.concat fmt) :: args)            val stm = CL.mkCall("fprintf", CL.mkVar "stdout" :: CL.mkStr(String.concat fmt) :: args)
390            in            in
391              List.rev (stm :: stms)              List.rev (stm :: stms)
392            end            end

Legend:
Removed from v.3375  
changed lines
  Added in v.3376

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