GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-06-02 14:48:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

another bug related to mattern matching on multiword expression

Browse Source
This commit is contained in:
krangelov
2020-02-18 15:07:47 +01:00
parent e15392e579
commit 3133900125
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/compiler/GF/Grammar/PatternMatch.hs
View File

@@ -107,6 +107,10 @@ tryMatch (p,t) = do
return (concat matches) return (concat matches)
(PT _ p',_) -> trym p' t' (PT _ p',_) -> trym p' t'
(PAs x p',([],K s,[])) -> do
subst <- trym p' t'
return $ (x,words2term (words s)) : subst
(PAs x p',_) -> do (PAs x p',_) -> do
subst <- trym p' t' subst <- trym p' t'
return $ (x,t) : subst return $ (x,t) : subst