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/cml/src/core-cml/rep-types.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/cml/src/core-cml/rep-types.sml

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

revision 3, Sat Oct 4 23:33:46 1997 UTC revision 8, Sun Jan 18 01:01:29 1998 UTC
# Line 64  Line 64 
64        | GUARD of unit -> 'a event        | GUARD of unit -> 'a event
65        | W_NACK of unit event -> 'a event        | W_NACK of unit event -> 'a event
66    
67      (* we put this function here, because it is useful when debugging the
68       * CML internals.
69       *)
70        fun tidToString (TID{id, ...}) =
71              concat["[", StringCvt.padLeft #"0" 6 (Int.toString id), "]"]
72    
73    end    end

Legend:
Removed from v.3  
changed lines
  Added in v.8

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