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 308, Wed Jun 2 01:26:19 1999 UTC revision 309, Wed Jun 2 03:21:57 1999 UTC
# Line 55  Line 55 
55  structure SmlInfo :> SMLINFO = struct  structure SmlInfo :> SMLINFO = struct
56    
57      structure Source = GenericVC.Source      structure Source = GenericVC.Source
     structure Print = GenericVC.Control.Print  
58      structure SF = GenericVC.SmlFile      structure SF = GenericVC.SmlFile
59      structure EM = GenericVC.ErrorMsg      structure EM = GenericVC.ErrorMsg
60      structure FNP = FilenamePolicy      structure FNP = FilenamePolicy
# Line 182  Line 181 
181                  val _ = if noerrors orelse quiet then ()                  val _ = if noerrors orelse quiet then ()
182                          else Say.vsay (concat ["[parsing ", name, "]\n"])                          else Say.vsay (concat ["[parsing ", name, "]\n"])
183                  val source =                  val source =
184                      Source.newSource (name, 1, stream, false,                      Source.newSource (name, 1, stream, false, #errcons gp)
                                       { linewidth = !Print.linewidth,  
                                         flush = Print.flush,  
                                         consumer = Print.say })  
185                  val pto = let                  val pto = let
186                      val tree = SF.parse source                      val tree = SF.parse source
187                  in                  in

Legend:
Removed from v.308  
changed lines
  Added in v.309

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