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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/codegen/string-subst.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/codegen/string-subst.sml

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

revision 3912, Wed May 25 14:53:50 2016 UTC revision 3913, Wed May 25 15:06:10 2016 UTC
# Line 33  Line 33 
33                  fun ins ("", _) = raise Fail "Illegal empty placeholder"                  fun ins ("", _) = raise Fail "Illegal empty placeholder"
34                    | ins (s1, s2) = Tbl.insert tbl (SS.full s1, s2)                    | ins (s1, s2) = Tbl.insert tbl (SS.full s1, s2)
35                  in                  in
36                    ins ("", "@");                    Tbl.insert tbl (SS.full "", "@");
37                    List.app ins subs;                    List.app ins subs;
38                    Tbl.find tbl                    Tbl.find tbl
39                  end                  end

Legend:
Removed from v.3912  
changed lines
  Added in v.3913

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