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

SCM Repository

[smlnj] Diff of /sml/trunk/src/system/Basis/Implementation/Posix/posix-filesys.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/Posix/posix-filesys.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 75  Line 75 
75            }            }
76      fun readdir (DS{dirStrm, isOpen = ref false}) =      fun readdir (DS{dirStrm, isOpen = ref false}) =
77            raise Assembly.SysErr("readdir on closed directory stream", NONE)            raise Assembly.SysErr("readdir on closed directory stream", NONE)
78        | readdir (DS{dirStrm, ...}) = readdir' dirStrm        | readdir (DS{dirStrm, ...}) =
79              case readdir' dirStrm of
80                  "" => NONE
81                | name => SOME name
82      fun rewinddir (DS{dirStrm, isOpen = ref false}) =      fun rewinddir (DS{dirStrm, isOpen = ref false}) =
83            raise Assembly.SysErr("rewinddir on closed directory stream", NONE)            raise Assembly.SysErr("rewinddir on closed directory stream", NONE)
84        | rewinddir (DS{dirStrm, ...}) = rewinddir' dirStrm        | rewinddir (DS{dirStrm, ...}) = rewinddir' dirStrm

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