Morphological analysis and glueing.

2003-11-10 07:55:45 +00:00
parent 4c99687f21
commit 249d506f58
13 changed files with 84 additions and 34 deletions
--- a/src/GF/Compile/ShellState.hs
+++ b/src/GF/Compile/ShellState.hs
@@ -133,7 +133,7 @@ updateShellState opts sh (gr,(sgr,rts)) = do
    canModules = cgr,
    srcModules = src,
    cfs        = zip concrs cfs,
-    morphos    = zip concrs (repeat emptyMorpho),
+    morphos    = zip concrs (map (mkMorpho cgr) concrs),
    gloptions  = options (M.allFlags src), ---- canModules
    readFiles  = [ft | ft@(f,_) <- readFiles sh, notInrts f] ++ rts,
    absCats    = csi,