msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

more on romance

Browse Source
This commit is contained in:
aarne
2005-02-11 08:11:29 +00:00
parent 40aed94124
commit 012d2dd0c4
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/GF/Canon/CMacros.hs
View File

@@ -129,6 +129,7 @@ term2patt trm = case trm of
return (PR (map (uncurry PAss) (zip ll aa'))) return (PR (map (uncurry PAss) (zip ll aa')))
LI x -> return $ PV x LI x -> return $ PV x
EInt i -> return $ PI i EInt i -> return $ PI i
FV (t:_) -> term2patt t ----
_ -> prtBad "no pattern corresponds to term" trm _ -> prtBad "no pattern corresponds to term" trm
patt2term :: Patt -> Term patt2term :: Patt -> Term