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/cm/bootstrap/btcompile.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/bootstrap/btcompile.sml

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

revision 735, Tue Nov 21 12:15:55 2000 UTC revision 737, Fri Nov 24 08:43:56 2000 UTC
# Line 326  Line 326 
326                                  case BF.exportPidOf bfc of                                  case BF.exportPidOf bfc of
327                                      NONE => ()                                      NONE => ()
328                                    | SOME pid =>                                    | SOME pid =>
329                                          (TextIO.output (s, " ");                                      app (fn str => TextIO.output (s, str))
330                                           TextIO.output (s, PS.toHex pid))                                          [" ", Int.toString os,
331                                             ":", PS.toHex pid]
332                              end                              end
333                              fun writePidLine s (p, set) =                              fun writePidLine s (p, set) =
334                                  if StableSet.isEmpty set then ()                                  if StableSet.isEmpty set then ()

Legend:
Removed from v.735  
changed lines
  Added in v.737

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