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/trunk/src/cm/smlfile/smlinfo.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/smlfile/smlinfo.sml

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

revision 631, Fri Apr 28 08:30:52 2000 UTC revision 632, Sat Apr 29 15:50:42 2000 UTC
# Line 55  Line 55 
55      val sourcepath : info -> SrcPath.t      val sourcepath : info -> SrcPath.t
56      val skelname : info -> string      val skelname : info -> string
57      val binname : info -> string      val binname : info -> string
58        val group : info -> SrcPath.t
59      val error : GeneralParams.info -> info -> complainer      val error : GeneralParams.info -> info -> complainer
60    
61      val parsetree : GeneralParams.info -> info -> (ast * source) option      val parsetree : GeneralParams.info -> info -> (ast * source) option
# Line 155  Line 156 
156      fun error gp (INFO { persinfo = PERS { group, ... }, ... }) =      fun error gp (INFO { persinfo = PERS { group, ... }, ... }) =
157          gerror gp group          gerror gp group
158    
159        fun group (INFO { persinfo = PERS { group = (g, _), ... }, ... }) = g
160    
161      fun compare (INFO { sourcepath = p, ... }, INFO { sourcepath = p', ... }) =      fun compare (INFO { sourcepath = p, ... }, INFO { sourcepath = p', ... }) =
162          SrcPath.compare (p, p')          SrcPath.compare (p, p')
163      fun eq (i, i') = compare (i, i') = EQUAL      fun eq (i, i') = compare (i, i') = EQUAL

Legend:
Removed from v.631  
changed lines
  Added in v.632

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