Diff of /sml/trunk/src/cm/paths/abspath.sml

Parent Directory | Revision Log | Patch

	revision 309, Wed Jun 2 03:21:57 1999 UTC	revision 310, Wed Jun 2 07:28:27 1999 UTC
#	Line 319	Line 319
319	end	end
320	fun makedirs dir = generic (F.mkDir, makedirs, dir)	fun makedirs dir = generic (F.mkDir, makedirs, dir)
321	fun advertisemakedirs dir =	fun advertisemakedirs dir =
322	(Say.vsay (concat ["[creating directory ", dir, " ...]\n"]);	(Say.vsay ["[creating directory ", dir, " ...]\n"];
323	makedirs dir)	makedirs dir)
324	in	in
325	generic (fileopener, advertisemakedirs, p)	generic (fileopener, advertisemakedirs, p)

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.309   changed lines   Added in v.310

---

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