SCM Repository
Diff of /sml/trunk/src/cm/stable/stabilize.sml
Parent Directory
| 
Revision Log
| 
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 |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
