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/parse/parse.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/parse/parse.sml

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

revision 324, Wed Jun 9 07:57:07 1999 UTC revision 329, Fri Jun 11 09:53:10 1999 UTC
# Line 102  Line 102 
102                  val context = AbsPath.relativeContext (AbsPath.dir group)                  val context = AbsPath.relativeContext (AbsPath.dir group)
103                  val filename = AbsPath.name group                  val filename = AbsPath.name group
104                  val _ = Say.vsay ["[scanning ", filename, "]\n"]                  val _ = Say.vsay ["[scanning ", filename, "]\n"]
105                  val stream = TextIO.openIn filename                  val stream = AbsPath.openTextIn group
106                  val source = S.newSource (filename, 1, stream, false, errcons)                  val source = S.newSource (filename, 1, stream, false, errcons)
107                  val sourceMap = #sourceMap source                  val sourceMap = #sourceMap source
108                  val _ = GroupReg.register groupreg (group, source)                  val _ = GroupReg.register groupreg (group, source)

Legend:
Removed from v.324  
changed lines
  Added in v.329

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