Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/branches/primop-branch-2/src/compiler/Semant/pickle/unpickmod-new.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-2/src/compiler/Semant/pickle/unpickmod-new.sml

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

revision 2039, Tue Aug 22 22:54:10 2006 UTC revision 2040, Wed Aug 23 23:44:18 2006 UTC
# Line 246  Line 246 
246          end          end
247    
248          fun tkind () = let          fun tkind () = let
249              fun tk #"A" = LD.tkc_mono              fun tk #"A" = LT.tkc_mono
250                | tk #"B" = LD.tkc_box                | tk #"B" = LT.tkc_box
251                | tk #"C" = LD.tkc_seq (tkindlist ())                | tk #"C" = LT.tkc_seq (tkindlist ())
252                | tk #"D" = LD.tkc_fun (tkindlist (), tkind ())                | tk #"D" = LT.tkc_fun (tkindlist (), tkind ())
253                | tk _ = raise Format                | tk _ = raise Format
254          in          in
255              share tkindM tk              share tkindM tk

Legend:
Removed from v.2039  
changed lines
  Added in v.2040

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