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/MLRISC/mlrisc/asmStream.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/mlrisc/asmStream.sml

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

revision 93, Tue May 12 21:56:22 1998 UTC revision 167, Sat Nov 7 20:11:41 1998 UTC
# Line 8  Line 8 
8   *             Typically asmOutStream is rebound to a file.   *             Typically asmOutStream is rebound to a file.
9   *)   *)
10    
11  structure AsmStream =  structure AsmStream = struct
     struct  
12          val asmOutStream = ref TextIO.stdOut          val asmOutStream = ref TextIO.stdOut
13      fun withStream stream body x = let
14         val s = !asmOutStream
15         val _ = asmOutStream := stream
16      in
17        (body x before asmOutStream := s)
18           handle e => (asmOutStream := s; raise e)
19      end
20      end      end
21    
22    

Legend:
Removed from v.93  
changed lines
  Added in v.167

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