diff options
| author | Kathy Gray | 2013-11-29 10:36:50 +0000 |
|---|---|---|
| committer | Kathy Gray | 2013-11-29 10:36:50 +0000 |
| commit | f335486bf254b882727fc373688b872a57de594c (patch) | |
| tree | e71ee0576f4b9d62f550b002ad304adcb305f0bc /src/test/test3.sail | |
| parent | dcc2ec2e4e6a3fd9a393af64d45bdf659201da03 (diff) | |
minor syntax fixups
Diffstat (limited to 'src/test/test3.sail')
| -rw-r--r-- | src/test/test3.sail | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/test/test3.sail b/src/test/test3.sail index 30513bc9..e77e1b71 100644 --- a/src/test/test3.sail +++ b/src/test/test3.sail @@ -2,13 +2,13 @@ register nat dummy_reg (* a function to read from memory; wmem serves no purpose currently, memory-writing functions are figured out syntactically. *) -val ( nat -> nat effect { wmem , rmem } ) MEM -val ( nat -> nat effect { wmem , rmem } ) MEM_GPU -val ( ( nat * nat ) -> nat effect { wmem , rmem } ) MEM_SIZE +val nat -> nat effect { wmem , rmem } MEM +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 pure add = "add" +val extern ( nat * nat ) -> nat pure (deinfix + ) = "add_infix" (* infix plus *) function nat (deinfix * ) ( (nat) x, (nat) y ) = 42 |