[MLton-commit] r6918

[Matthew Fluet]

Fix SML/NJ compile.
----------------------------------------------------------------------

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

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

Modified: mlton/trunk/mlton/atoms/ffi.fun
===================================================================
--- mlton/trunk/mlton/atoms/ffi.fun	2008-10-08 22:50:50 UTC (rev 6917)
+++ mlton/trunk/mlton/atoms/ffi.fun	2008-10-09 21:35:20 UTC (rev 6918)
@@ -14,7 +14,7 @@
 structure SymbolScope = CFunction.SymbolScope
 
 local
-   val scopes: (word * String.t * SymbolScope.t) HashSet.t = 
+   val scopes: (Word.t * String.t * SymbolScope.t) HashSet.t = 
       HashSet.new {hash = #1}
 in
    fun checkScope {name, symbolScope} =