more on romance

2005-02-11 08:11:29 +00:00
parent 40aed94124
commit 012d2dd0c4
1 changed files with 1 additions and 0 deletions
--- a/src/GF/Canon/CMacros.hs
+++ b/src/GF/Canon/CMacros.hs
@@ -129,6 +129,7 @@ term2patt trm = case trm of
    return (PR (map (uncurry PAss) (zip ll aa')))
  LI x -> return $ PV x
  EInt i -> return $ PI i
+  FV (t:_) -> term2patt t ----
  _ -> prtBad "no pattern corresponds to term" trm

 patt2term :: Patt -> Term