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

bugfix for predefined operations

Browse Source
This commit is contained in:
krangelov
2021-10-21 08:55:22 +02:00
parent 64ccd82958
commit 38d189f8ef
3 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/compiler/GF/Compile/Compute/Concrete.hs
View File

@@ -518,7 +518,8 @@ value2string =
where where
all_capit = map toUpper all_capit = map toUpper
-- value2string (b,f,ws) (VAlts vd vas) = -- value2string (b,f,ws) (VAlts vd vas) =
value2string st _ = st value2string (Const _) _ = RunTime
value2string st _ = st
string2value s = string2value s =
case words s of case words s of

1
testsuite/compiler/compute/predef.gfs
View File

@@ -1,6 +1,7 @@
i -retain prelude/Predef.gfo i -retain prelude/Predef.gfo
cc length "abcd" cc length "abcd"
cc length ("ab"++"cd") cc length ("ab"++"cd")
cc length nonExist
cc <\x -> length x : Str -> Int> cc <\x -> length x : Str -> Int>
cc take 2 "abcd" cc take 2 "abcd"
cc drop 2 "abcd" cc drop 2 "abcd"

1
testsuite/compiler/compute/predef.gfs.gold
View File

@@ -1,5 +1,6 @@
4 4
5 5
Predef.length Predef.nonExist
\v0 -> Predef.length v0 \v0 -> Predef.length v0
"ab" "ab"
"cd" "cd"