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/main/cm-boot.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/main/cm-boot.sml

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

revision 458, Thu Oct 28 14:22:55 1999 UTC revision 459, Fri Oct 29 06:22:25 1999 UTC
# Line 362  Line 362 
362                        { openIt = fn () => F.openDir bootdir,                        { openIt = fn () => F.openDir bootdir,
363                          closeIt = F.closeDir,                          closeIt = F.closeDir,
364                          work = listDir,                          work = listDir,
365                          cleanup = fn () => () }                          cleanup = fn _ => () }
366                    fun isDir x = F.isDir x handle _ => false                    fun isDir x = F.isDir x handle _ => false
367                    fun subDir x = let                    fun subDir x = let
368                        val d = P.concat (bootdir, x)                        val d = P.concat (bootdir, x)

Legend:
Removed from v.458  
changed lines
  Added in v.459

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