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/branches/SMLNJ/src/cml/src/Sockets/cml-socket.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/cml/src/Sockets/cml-socket.sml

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

revision 7, Sun Jan 18 00:59:30 1998 UTC revision 8, Sun Jan 18 01:01:29 1998 UTC
# Line 103  Line 103 
103    
104      fun close (PS.CMLSock{sock, state}) = (      fun close (PS.CMLSock{sock, state}) = (
105            case (SyncVar.mTake state)            case (SyncVar.mTake state)
106             of PS.Closed => SyncVar.mPut(state, PS.Closed)             of PS.Closed => ()
107              | _ => Socket.close sock              | _ => Socket.close sock
108            (* end case *);            (* end case *);
109            SyncVar.mPut(state, PS.Closed))            SyncVar.mPut(state, PS.Closed))

Legend:
Removed from v.7  
changed lines
  Added in v.8

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