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

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 1349, Wed Sep 3 22:22:18 2003 UTC revision 1350, Fri Sep 5 21:34:27 2003 UTC
# Line 497  Line 497 
497                    fun listDir ds = let                    fun listDir ds = let
498                        fun loop l =                        fun loop l =
499                            case F.readDir ds of                            case F.readDir ds of
500                                "" => l                                NONE => l
501                              | x => loop (x :: l)                              | SOME x => loop (x :: l)
502                    in                    in
503                        loop []                        loop []
504                    end                    end

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