diff options
Diffstat (limited to 'src/GF/CF')
| -rw-r--r-- | src/GF/CF/CanonToCF.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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)]] |