GitHub/gf-core
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-11-05 11:45:27 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix the implementation for Predef.tk & Predef.dp

Browse Source
This commit is contained in:
krangelov committed 2021-12-10 12:05:01 +01:00
1 parent b0672afc67
commit ad4c5029a3
1 file changed
+2 -2
Download Patch File Download Diff File Expand all files Collapse all files
src/compiler/GF/Compile/Compute/Concrete.hs
+2 -2
View File
@@ -248,11 +248,11 @@ evalPredef id [v1,v2]
evalPredef id [v1,v2] evalPredef id [v1,v2]
| id == cTk = return (fmap string2value (liftA2 genericTk (value2int v1) (value2string v2))) | id == cTk = return (fmap string2value (liftA2 genericTk (value2int v1) (value2string v2)))
where where
genericTk n = reverse . genericTake n . reverse genericTk n = reverse . genericDrop n . reverse
evalPredef id [v1,v2] evalPredef id [v1,v2]
| id == cDp = return (fmap string2value (liftA2 genericDp (value2int v1) (value2string v2))) | id == cDp = return (fmap string2value (liftA2 genericDp (value2int v1) (value2string v2)))
where where
genericDp n = reverse . genericDrop n . reverse genericDp n = reverse . genericTake n . reverse
evalPredef id [v] evalPredef id [v]
| id == cIsUpper= return (fmap toPBool (liftA (all isUpper) (value2string v))) | id == cIsUpper= return (fmap toPBool (liftA (all isUpper) (value2string v)))
evalPredef id [v] evalPredef id [v]