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

fix typo

Browse Source
This commit is contained in:
Krasimir Angelov
2025-03-14 07:38:33 +00:00
parent b008aa7de0
commit a7c0be2fd5
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/api/GF/Compile/Compute/Concrete2.hs
View File

@@ -812,7 +812,7 @@ value2termM flat xs (VReset ctl v) = do
return (App (App (QC (mn,identS ("Conj"++cat))) (QC (mn,conj))) t) return (App (App (QC (mn,identS ("Conj"++cat))) (QC (mn,conj))) t)
where where
listify mn cat [t1,t2] = do return (App (App (QC (mn,identS ("Base"++cat))) t1) t2) listify mn cat [t1,t2] = do return (App (App (QC (mn,identS ("Base"++cat))) t1) t2)
listify mn cat (t1:ts) = do t2 <- listify mn id ts listify mn cat (t1:ts) = do t2 <- listify mn cat ts
return (App (App (QC (mn,identS ("Cons"++cat))) t1) t2) return (App (App (QC (mn,identS ("Cons"++cat))) t1) t2)
value2termM flat xs (VError msg) = evalError msg value2termM flat xs (VError msg) = evalError msg
value2termM flat xs (VCRecType lbls) = do value2termM flat xs (VCRecType lbls) = do