diff --git a/collects/tests/honu/flow.honu b/collects/tests/honu/flow.honu new file mode 100644 index 0000000000..1dfe5e77bb --- /dev/null +++ b/collects/tests/honu/flow.honu @@ -0,0 +1,15 @@ +#lang honu + +foo(x){ + x + 1 +} + +bar(x){ + x * 2 +} + +buz(z){ + z - 4 +} + +foo(5) | bar | buz diff --git a/collects/tests/honu/struct.honu b/collects/tests/honu/struct.honu index 28bd85901e..87fa95a941 100644 --- a/collects/tests/honu/struct.honu +++ b/collects/tests/honu/struct.honu @@ -1,12 +1,7 @@ #lang honu -/* -require (forSyntax "struct-patterns.honu"); +// structure foo (bar) {a, b, c}; +structure foo {a, b, c}; -provide struct; -macro struct () { - _ name {field:structField ...} ; -} { - schemeSyntax#sx(honu-struct name (field_name_result ...)) -} -*/ +var x = foo(1, 2, 3); +printf("x.a: ~a\n", x.a);