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

pattern matching with PChar

Browse Source
This commit is contained in:
Krasimir Angelov
2024-09-05 18:00:27 +02:00
parent 6c2a94d428
commit e722916728
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/compiler/api/GF/Compile/Compute/Concrete.hs
View File

@@ -389,6 +389,7 @@ patternMatch v0 ((env0,ps,args0,t):eqs) = match env0 ps eqs args0
patternMatch v0 eqs patternMatch v0 eqs
RunTime -> return v0 RunTime -> return v0
NonExist-> patternMatch v0 eqs NonExist-> patternMatch v0 eqs
(PChar, VStr [c]) -> match env ps eqs args
(PChars cs, VStr [c]) (PChars cs, VStr [c])
| elem c cs -> match env ps eqs args | elem c cs -> match env ps eqs args
(PInt n, VInt m) (PInt n, VInt m)