[MLton-commit] r7255

[Wesley Terpstra]

In retrospect, this is obvious.


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

U   mlton/trunk/mlton/main/main.fun

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

Modified: mlton/trunk/mlton/main/main.fun
===================================================================
--- mlton/trunk/mlton/main/main.fun	2009-10-13 15:38:15 UTC (rev 7254)
+++ mlton/trunk/mlton/main/main.fun	2009-10-13 15:47:08 UTC (rev 7255)
@@ -169,7 +169,8 @@
       datatype z = datatype Control.Target.arch
    in
       case !Control.Target.arch of
-         HPPA => true
+         Alpha => true
+       | HPPA => true
        | IA64 => true
        | Sparc => true
        | _ => false