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

Diff of /sml/branches/SMLNJ/src/system/Init/use-hook.sml

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

revision 428, Wed Sep 8 09:47:00 1999 UTC revision 429, Wed Sep 8 09:47:00 1999 UTC
# Line 4  Line 4 
4      local      local
5          fun dummy (s: PrimTypes.string) = ()          fun dummy (s: PrimTypes.string) = ()
6      in      in
7          val useHook = ref dummy          val useHook = PrimTypes.ref dummy
8          fun use s = InlineT.! useHook s          fun use s = InlineT.! useHook s
9      end      end
10  end  end

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

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