"Committed_by_peb"

2005-02-03 14:13:35 +00:00
parent f963aa213d
commit d877eed0bc
10 changed files with 132 additions and 15 deletions
--- a/src/GF/Compile/CheckGrammar.hs
+++ b/src/GF/Compile/CheckGrammar.hs
@@ -669,7 +669,7 @@ checkEqLType env t u trm = do

     (RecType rs, RecType ts) -> -- and [alpha g a b && l == k --- too strong req
                                 --       | ((l,a),(k,b)) <- zip rs ts]
-                                 -- || -- if fails, try subtyping:
+                                 -- . || -- if fails, try subtyping:
                                 all (\ (l,a) -> 
                                     any (\ (k,b) -> alpha g a b && l == k) ts) rs