diff options
| author | Kathy Gray | 2013-12-03 17:45:53 +0000 |
|---|---|---|
| committer | Kathy Gray | 2013-12-03 17:45:53 +0000 |
| commit | a740278c7d7aa64e3fade12301108f0e91cd8ee9 (patch) | |
| tree | b57ac1d6835fcd06c8e0c7ec677a61b6746a50c8 /src/test/test3.sail | |
| parent | 362fcca9780c00d23733e1c9b4b3470455fb5ad7 (diff) | |
Syntax changes per discussion with Peter, as well as L2.ott document clean up.
Could not at this time return lists to [| |] from [|| ||] as the parser cannot distinguish a cast with enum’s syntactic sugar from the start of a parenthesised list (i.e. ( [|3|] ) And there are still conflicts with moving enums to [3], so those changes can’t be pushed in with current parser technology.
Diffstat (limited to 'src/test/test3.sail')
| -rw-r--r-- | src/test/test3.sail | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/test/test3.sail b/src/test/test3.sail index e77e1b71..89c710bc 100644 --- a/src/test/test3.sail +++ b/src/test/test3.sail @@ -7,8 +7,8 @@ val nat -> nat effect { wmem , rmem } MEM_GPU val ( nat * nat ) -> nat effect { wmem , rmem } MEM_SIZE (* extern functions *) -val extern ( nat * nat ) -> nat pure add = "add" -val extern ( nat * nat ) -> nat pure (deinfix + ) = "add_infix" (* infix plus *) +val extern ( nat * nat ) -> nat effect pure add = "add" +val extern ( nat * nat ) -> nat effect pure (deinfix + ) = "add_infix" (* infix plus *) function nat (deinfix * ) ( (nat) x, (nat) y ) = 42 |