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 /smlnj-lib/branches/rt-transition/PP/src/pp-debug-fn.sml
ViewVC logotype

Diff of /smlnj-lib/branches/rt-transition/PP/src/pp-debug-fn.sml

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

revision 289, Sat May 22 21:01:25 1999 UTC revision 411, Fri Sep 3 00:25:03 1999 UTC
# Line 7  Line 7 
7   *)   *)
8    
9  functor PPDebugFn (PP : sig  functor PPDebugFn (PP : sig
10      include PP_STREAM val dump : (TextIO.outstream * stream) -> unit      include PP_STREAM
11        val dump : (TextIO.outstream * stream) -> unit
12    end) : sig    end) : sig
13      include PP_STREAM      include PP_STREAM
14      val debugStrm : TextIO.outstream ref      val debugStrm : TextIO.outstream ref
# Line 57  Line 58 
58      val onNewline = debug "onNewline" PP.onNewline      val onNewline = debug "onNewline" PP.onNewline
59      val control = debug "control" PP.control      val control = debug "control" PP.control
60    
61        type pp_desc = PP.pp_desc
62        val description = debug "description" PP.description
63    
64        structure Desc = PP.Desc
65    
66    end;    end;
67    

Legend:
Removed from v.289  
changed lines
  Added in v.411

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