[MLton-commit] r6826

[Matthew Fluet]

Use Error.bug to signal an internal compiler error.

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

U   mlton/trunk/mlton/atoms/ffi.fun

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

Modified: mlton/trunk/mlton/atoms/ffi.fun
===================================================================
--- mlton/trunk/mlton/atoms/ffi.fun	2008-09-01 13:19:35 UTC (rev 6825)
+++ mlton/trunk/mlton/atoms/ffi.fun	2008-09-01 13:19:38 UTC (rev 6826)
@@ -57,7 +57,8 @@
        let
           val symbolScope = 
              case symbolScope of 
-                SymbolScope.External => "UNREACHABLE_CODE_IS_A_BUG"
+                SymbolScope.External =>
+                   Error.bug "Ffi.declareExports.symbols: External"
               | SymbolScope.Private => "INTERNAL "
               | SymbolScope.Public => "EXPORTED "
           val decl = symbolScope ^ CType.toString ty ^ " " ^ name;
@@ -81,7 +82,8 @@
               end)
           val header =
              concat [case symbolScope of 
-                        SymbolScope.External => "UNREACHABLE_CODE_IS_A_BUG"
+                        SymbolScope.External =>
+                           Error.bug "Ffi.declareExports.exports: External"
                       | SymbolScope.Private => "INTERNAL "
                       | SymbolScope.Public => "EXPORTED ",
                      case res of