From 49c17be41a7d572d27df74eb7351b672e85953a1 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 5 Nov 2003 14:42:29 +0000
Subject: working with interfaces

---
 src/GF/Grammar/Compute.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/GF/Grammar/Compute.hs')

diff --git a/src/GF/Grammar/Compute.hs b/src/GF/Grammar/Compute.hs
index 1f1eba28c..3dd90012d 100644
--- a/src/GF/Grammar/Compute.hs
+++ b/src/GF/Grammar/Compute.hs
@@ -129,10 +129,12 @@ computeTerm gr = comp where
          (K a, Alts (d,vs)) -> do
             let glx = Glue x
             comp g $ Alts (glx d, [(glx v,c) | (v,c) <- vs])
-         (Alts _, K a) -> do
-            x' <- strsFromTerm x
+         (Alts _, K a) -> checks [do
+            x' <- strsFromTerm x -- this may fail when compiling opers
             return $ variants [
               foldr1 C (map K (str2strings (glueStr v (str a)))) | v <- x']
+           ,return $ Glue x y
+           ]
          _ -> do
            mapM_ checkNoArgVars [x,y]
            r <- composOp (comp g) t
-- 
cgit v1.2.3