From 3a3342a0f96ba33d0df745b87f700b9998c86f4f Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 30 May 2005 20:08:14 +0000
Subject: restricted inheritance almost implemented

---
 src/GF/Compile/Compile.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/GF/Compile/Compile.hs')

diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs
index e2b835273..9ea0fdf91 100644
--- a/src/GF/Compile/Compile.hs
+++ b/src/GF/Compile/Compile.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/05/27 11:37:57 $
+-- > CVS $Date: 2005/05/30 21:08:14 $
 -- > CVS $Author: aarne $
--- > CVS $Revision: 1.39 $
+-- > CVS $Revision: 1.40 $
 --
 -- The top-level compilation chain from source file to gfc\/gfr.
 -----------------------------------------------------------------------------
@@ -221,7 +221,7 @@ makeSourceModule opts env@(k,gr,can) mo@(i,mi) = case mi of
 
   ModMod m -> case mtype m of
     MTReuse c -> do
-      sm <- ioeErr $ makeReuse gr i (extends m) c
+      sm <- ioeErr $ makeReuse gr i (extend m) c
       let mo2 = (i, ModMod sm)
           mos = modules gr
       --- putp "  type checking reused" $ ioeErr $ showCheckModule mos mo2
-- 
cgit v1.2.3