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/system/Init/print-hook.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Init/print-hook.sml

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

revision 417, Fri Sep 3 23:51:27 1999 UTC revision 429, Wed Sep 8 09:47:00 1999 UTC
# Line 5  Line 5 
5          (* to have something to initialize prHook with... *)          (* to have something to initialize prHook with... *)
6          fun discard (s: PrimTypes.string) = ()          fun discard (s: PrimTypes.string) = ()
7      in      in
8          val prHook = ref discard        (* very crude *)          val prHook = PrimTypes.ref discard (* very crude *)
9          fun print s = InlineT.! prHook s          fun print s = InlineT.! prHook s
10      end      end
11  end  end

Legend:
Removed from v.417  
changed lines
  Added in v.429

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