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

rename patterns bug fix

Browse Source
This commit is contained in:
aarne
2006-11-24 09:32:16 +00:00
parent 1d372525ea
commit 35eaaa0da6
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -235,9 +235,13 @@ renamePattern env patt = case patt of
_ -> prtBad "unresolved pattern" c' ---- (PC c ps', concat vs) _ -> prtBad "unresolved pattern" c' ---- (PC c ps', concat vs)
PP p c ps -> do PP p c ps -> do
(p', c') <- case renameIdentTerm env (QC p c) of
Ok (QC p' c') -> return (p',c')
_ -> return (p,c) --- temporarily, for bw compat
psvss <- mapM renp ps psvss <- mapM renp ps
let (ps',vs) = unzip psvss let (ps',vs) = unzip psvss
return (PP p c ps', concat vs) return (PP p' c' ps', concat vs)
PV x -> case renid patt of PV x -> case renid patt of
Ok p -> return (p,[]) Ok p -> return (p,[])