From e59bad1f19358a11a1f1d61d00807ffcae0ab8c4 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 31 Jan 2006 17:10:31 +0000
Subject: math API; lock field warnings

---
 src/GF/CF/CanonToCF.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/GF/CF')

diff --git a/src/GF/CF/CanonToCF.hs b/src/GF/CF/CanonToCF.hs
index 882860b2c..80ce2e79d 100644
--- a/src/GF/CF/CanonToCF.hs
+++ b/src/GF/CF/CanonToCF.hs
@@ -128,6 +128,8 @@ term2CFItems m t = errIn "forming cf items" $ case t of
      its <- mapM t2c ts
      tryMkCFTerm (concat its)
 
+   P (S c _) _ -> t2c c --- w-around for bug in Compute? AR 31/1/2006
+
    P arg s -> extrR arg s
 
    K (KS s) -> return [[PTerm (RegAlts [s]) | not (null s)]]
-- 
cgit v1.2.3