# HG changeset patch
# User Karn Kallio <kkallio@eka>
# Date 1304715285 16200
# Node ID 913d9c2f55c9091bed07bed51ce2c5c26adcdfec
# Parent  96353138f016bf5280e62e6614b782c8311a3cc2
Corify Basis.unit to empty record; this is needed so that specialize
can see that they are equivalent.

diff -r 96353138f016 -r 913d9c2f55c9 src/corify.sml
--- a/src/corify.sml	Sun May 01 00:26:08 2011 -0430
+++ b/src/corify.sml	Fri May 06 16:24:45 2011 -0430
@@ -466,7 +466,11 @@
         in
             case St.lookupConByName st x of
                 St.CNormal n => (L'.CNamed n, loc)
-              | St.CFfi m => (L'.CFfi (m, x), loc)
+              | St.CFfi m => 
+                if (m, x) = ("Basis", "unit") then 
+                    (L'.TRecord (L'.CRecord ((L'.KType, loc), []), loc), loc)
+                else
+                    (L'.CFfi (m, x), loc)
         end
 
       | L.CApp (c1, c2) => (L'.CApp (corifyCon st c1, corifyCon st c2), loc)