diff options
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 |