From 2581ac99323ead839964e9b5f2a799cf61fd5bdc Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rosehogenson@posteo.net>
Date: Sat, 18 May 2024 13:08:31 -0700
Subject: Allow pattern matching in function definitions.

---
 tests/18-fun-case.sml | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 tests/18-fun-case.sml

(limited to 'tests')

diff --git a/tests/18-fun-case.sml b/tests/18-fun-case.sml
new file mode 100644
index 0000000..d64b7d7
--- /dev/null
+++ b/tests/18-fun-case.sml
@@ -0,0 +1,5 @@
+fun fib 1 = 1
+  | fib 2 = 2
+  | fib n = __builtin "add" (fib (__builtin "sub" (n, 1)), fib (__builtin "sub" (n, 2)))
+
+val _ = __builtin "exit" (__builtin "add" (fib 8, 8))
-- 
cgit v1.3.1