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

Diff of /sml/trunk/src/cm/paths/pathconfig.sml

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

revision 365, Fri Jul 2 08:38:07 1999 UTC revision 366, Fri Jul 2 14:13:29 1999 UTC
# Line 44  Line 44 
44                  if line = "" then ()                  if line = "" then ()
45                  else case String.tokens Char.isSpace line of                  else case String.tokens Char.isSpace line of
46                      [a, d] => (set (m, a, d);                      [a, d] => (set (m, a, d);
                                Say.vsay ["PathConfig: ", a, " -> ", d, "\n"];  
47                                 loop ())                                 loop ())
48                    | _ => (Say.say [f, ": malformed line (ignored)\n"];                    | _ => (Say.say [f, ": malformed line (ignored)\n"];
49                            loop ())                            loop ())

Legend:
Removed from v.365  
changed lines
  Added in v.366

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