Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

SCM Repository

[smlnj] Diff of /sml/trunk/src/cm/tools/dir/tool.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/tools/dir/tool.sml

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

revision 1349, Wed Sep 3 22:22:18 2003 UTC revision 1350, Fri Sep 5 21:34:27 2003 UTC
# Line 29  Line 29 
29                  fun getfiles s = let                  fun getfiles s = let
30                      fun loop l =                      fun loop l =
31                          case OS.FileSys.readDir s of                          case OS.FileSys.readDir s of
32                              "" => rev l                              NONE => rev l
33                            | f => let                            | SOME f => let
34                                  val df = OS.Path.joinDirFile                                  val df = OS.Path.joinDirFile
35                                               { dir = spec_d, file = f }                                               { dir = spec_d, file = f }
36                                  fun mkpath () = augment pre_d [f]                                  fun mkpath () = augment pre_d [f]

Legend:
Removed from v.1349  
changed lines
  Added in v.1350

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