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/SMLNJ/src/compiler/Semant/pickle/pickmod.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/Semant/pickle/pickmod.sml

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

revision 166, Sat Nov 7 20:11:41 1998 UTC revision 167, Sat Nov 7 20:11:41 1998 UTC
# Line 683  Line 683 
683            end            end
684        | fctSig M.ERRORfsig () = "EF" $ []        | fctSig M.ERRORfsig () = "EF" $ []
685    
686      and spec (M.TYCspec{spec=t, entVar=v, scope=s}) () =      and spec (M.TYCspec{spec=t, entVar=v, repl=r, scope=s}) () =
687            "TG" $ [tycon t,entVar v,int s]            "TG" $ [tycon t,entVar v,bool r,int s]
688        | spec (M.STRspec{sign=s, slot=d, def=e, entVar=v}) () =        | spec (M.STRspec{sign=s, slot=d, def=e, entVar=v}) () =
689            "SG" $ [Signature s, int d, option (tuple2 (strDef, int)) e, entVar v]            "SG" $ [Signature s, int d, option (tuple2 (strDef, int)) e, entVar v]
690        | spec (M.FCTspec{sign=s, slot=d, entVar=v}) () =        | spec (M.FCTspec{sign=s, slot=d, entVar=v}) () =
# Line 922  Line 922 
922    
923    
924  (*  (*
925   * $Log$   * $Log: pickmod.sml,v $
926     * Revision 1.4  1998/05/23 14:10:12  george
927     *   Fixed RCS keyword syntax
928     *
929   *)   *)

Legend:
Removed from v.166  
changed lines
  Added in v.167

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