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/util/safeio.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/util/safeio.sml

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

revision 345, Sun Jun 20 11:55:26 1999 UTC revision 367, Sat Jul 3 04:59:01 1999 UTC
# Line 17  Line 17 
17  structure SafeIO :> SAFEIO = struct  structure SafeIO :> SAFEIO = struct
18    
19      structure S = Signals      structure S = Signals
     val callcc = SMLofNJ.Cont.callcc  
     val throw = SMLofNJ.Cont.throw  
20    
21      fun perform { openIt, closeIt, work, cleanup } = let      fun perform { openIt, closeIt, work, cleanup } = let
22          val oh = S.inqHandler S.sigINT          val oh = S.inqHandler S.sigINT

Legend:
Removed from v.345  
changed lines
  Added in v.367

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