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 313, Thu Jun 3 09:26:34 1999 UTC revision 324, Wed Jun 9 07:57:07 1999 UTC
# Line 99  Line 99 
99    
100              (* normal processing -- used when there is no cycle to report *)              (* normal processing -- used when there is no cycle to report *)
101              fun normal_processing () = let              fun normal_processing () = let
                 val currentDir = AbsPath.dir group  
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"]

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

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