From 92eeab2815eae6cd9ef22530d2e50fe0a620ec46 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Sun, 9 Jun 2024 05:13:44 +0900
Subject: Initial commit

---
 algebraic-structs.alternative.make.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 algebraic-structs.alternative.make.scm

(limited to 'algebraic-structs.alternative.make.scm')

diff --git a/algebraic-structs.alternative.make.scm b/algebraic-structs.alternative.make.scm
new file mode 100644
index 0000000..df4e0f4
--- /dev/null
+++ b/algebraic-structs.alternative.make.scm
@@ -0,0 +1,10 @@
+(functor ((algebraic-structs alternative make) (A (pure map map2 alt empty)))
+    (pure map map2 alt empty guard)
+  (import (except scheme map apply)
+          (only (chicken base) void)
+          A)
+
+  (define (guard b)
+    (if b
+        (pure (void))
+        empty)))
-- 
cgit v1.2.3