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/stable/stabilize.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/stable/stabilize.sml

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

revision 311, Wed Jun 2 09:08:48 1999 UTC revision 312, Wed Jun 2 23:20:17 1999 UTC
# Line 83  Line 83 
83      fun stabilize gp { group = g as GG.GROUP grec, anyerrors } = let      fun stabilize gp { group = g as GG.GROUP grec, anyerrors } = let
84    
85          fun doit granted = let          fun doit granted = let
86    
87                val _ = Say.say ("$Stabilize: wrapping the following privileges:\n"
88                                 :: map (fn s => ("  " ^ s ^ "\n"))
89                                        (StringSet.listItems granted))
90    
91              val bname = AbsPath.name o SmlInfo.binpath              val bname = AbsPath.name o SmlInfo.binpath
92              val bsz = OS.FileSys.fileSize o bname              val bsz = OS.FileSys.fileSize o bname
93              fun cpb s i = let              fun cpb s i = let

Legend:
Removed from v.311  
changed lines
  Added in v.312

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