GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

rename patterns bug fix

Browse Source
This commit is contained in:
aarne
2006-11-24 09:32:16 +00:00
parent 7f54196476
commit dbb2afd461
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)
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
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
Ok p -> return (p,[])