From 4fe42be07b7b57147f9cac0d17c2611f71f0758a Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Sat, 18 May 2024 07:23:11 -0700 Subject: Add structures. --- tests/21-struct-datatype.sml | 6 ++++++ 1 file changed, 6 insertions(+) create mode 100644 tests/21-struct-datatype.sml (limited to 'tests/21-struct-datatype.sml') diff --git a/tests/21-struct-datatype.sml b/tests/21-struct-datatype.sml new file mode 100644 index 0000000..ab714ea --- /dev/null +++ b/tests/21-struct-datatype.sml @@ -0,0 +1,6 @@ +structure S = struct + datatype D = D of int +end + +val S.D x = S.D 42 +val _ = __builtin "exit" x -- cgit v1.3.1