summaryrefslogtreecommitdiff
path: root/test.toc
diff options
context:
space:
mode:
Diffstat (limited to 'test.toc')
-rw-r--r--test.toc50
1 files changed, 7 insertions, 43 deletions
diff --git a/test.toc b/test.toc
index 1ecc9ce..c185a7f 100644
--- a/test.toc
+++ b/test.toc
@@ -1,48 +1,12 @@
#include "std/io.toc", io;
-
-plusone ::= fn(n : int) x := n {
+f ::= fn() (int, int) {
+ x := 5;
+ y := 88;
defer x += 1;
+ x, y
}
-
-same ::= fn(n : int) int {
- x := n;
- defer x += 1;
- x
-}
-
main ::= fn() {
- io.puti(plusone(3));
- io.puti(same(3));
- defer io.puts("deferred from main()");
- for i := 1..10 {
- defer io.puts("deferred from for");
- io.puti(i);
- if i == 2 {
- defer io.puts("deferred from if1");
- defer io.puts("deferred from if2");
- defer io.puts("deferred from if3");
- defer io.puts("deferred from if4");
- defer io.puts("deferred from if5");
- defer io.puts("deferred from if6");
- defer io.puts("deferred from if7");
- defer io.puts("deferred from if8");
- continue;
- }
- if i == 8 {
- break;
- }
- }
- i := 0;
- while {
- defer io.puts("deferred from while");
- i += 1;
- io.puti(i);
- if i % 2 == 0 { continue; }
- if i == 7 {
- defer io.puts("deferred from if");
- break;
- }
-
- }
- io.puts("end of main()");
+ a,b := f();
+ io.puti(a);
+ io.puti(b);
}