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

concatenation string patterns

Browse Source
This commit is contained in:
aarne
2006-01-06 21:49:25 +00:00
parent 3bf8e5ce6f
commit 88b09b8ae0
5 changed files with 18 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/GF/Compile/Rename.hs
View File

@@ -221,14 +221,15 @@ renamePattern env patt = case patt of
PC c ps -> do
c' <- renameIdentTerm env $ Cn c
psvss <- mapM renp ps
let (ps',vs) = unzip psvss
case c' of
QC p d -> return (PP p d ps', concat vs)
Q p d -> return (PP p d ps', concat vs) ---- should not happen
QC p d -> renp $ PP p d ps
Q p d -> renp $ PP p d ps
_ -> prtBad "unresolved pattern" c' ---- (PC c ps', concat vs)
---- PP p c ps -> (PP p c ps',concat vs') where (ps',vs') = unzip $ map renp ps
PP p c ps -> do
psvss <- mapM renp ps
let (ps',vs) = unzip psvss
return (PP p c ps', concat vs)
PV x -> case renid patt of
Ok p -> return (p,[])