[MLton-commit] r6790

[Vesa Karvonen]

Reformatted to fit in 80 columns.

----------------------------------------------------------------------

U   mltonlib/trunk/org/mlton/vesak/use-lib/unstable/detail/ml/alice/workarounds.sml

----------------------------------------------------------------------

Modified: mltonlib/trunk/org/mlton/vesak/use-lib/unstable/detail/ml/alice/workarounds.sml
===================================================================
--- mltonlib/trunk/org/mlton/vesak/use-lib/unstable/detail/ml/alice/workarounds.sml	2008-08-23 16:10:21 UTC (rev 6789)
+++ mltonlib/trunk/org/mlton/vesak/use-lib/unstable/detail/ml/alice/workarounds.sml	2008-08-23 16:10:57 UTC (rev 6790)
@@ -1,4 +1,4 @@
-(* Copyright (C) 2007 Vesa Karvonen
+(* Copyright (C) 2007-2008 Vesa Karvonen
  *
  * This code is released under the MLton license, a BSD-style license.
  * See the LICENSE file or http://mlton.org/License for details.
@@ -33,7 +33,8 @@
                            else case Path.splitDirFile p
                                  of {dir, file} =>
                                     (if "" <> dir then chDir dir else ()
-                                   ; Path.joinDirFile {dir = getDir (), file = file}),
+                                   ; Path.joinDirFile {dir = getDir (),
+                                                       file = file}),
                         fn () => chDir cwd)
       end
    end