[MLton-commit] r4382

[Stephen Weeks]

Eliminated test code.

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

U   mlton/trunk/basis-library/mlton/mlton.sml

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

Modified: mlton/trunk/basis-library/mlton/mlton.sml
===================================================================
--- mlton/trunk/basis-library/mlton/mlton.sml	2006-03-28 21:34:14 UTC (rev 4381)
+++ mlton/trunk/basis-library/mlton/mlton.sml	2006-03-28 22:00:23 UTC (rev 4382)
@@ -102,13 +102,3 @@
                end
          end
    end
-
-local
-   open MLton.Vector
-in
-   fun fib n =
-      Vector.create (n,
-                     fn {sub = fib, ...} =>
-                     (fn i => if i <= 1 then 1 else fib (i - 1) + fib (i - 2),
-                      ignore))
-end