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/cml/src/Unix/new-unix.sml
ViewVC logotype

Diff of /sml/trunk/src/cml/src/Unix/new-unix.sml

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

revision 1861, Mon Nov 7 18:17:09 2005 UTC revision 1862, Mon Nov 7 23:03:18 2005 UTC
# Line 65  Line 65 
65                  PIO.close (#outfd p2);                  PIO.close (#outfd p2);
66                  PIO.close (#infd p2)                  PIO.close (#infd p2)
67                )                )
68            val base = SS.string(SS.taker (fn c => c <> #"/") (SS.all cmd))            val base = SS.string(SS.taker (fn c => c <> #"/") (SS.full cmd))
69            fun startChild () = (case protect PP.fork ()            fun startChild () = (case protect PP.fork ()
70                   of SOME pid => pid           (* parent *)                   of SOME pid => pid           (* parent *)
71                    | NONE => let                    | NONE => let

Legend:
Removed from v.1861  
changed lines
  Added in v.1862

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