1 files changed, 14 insertions, 0 deletions
diff --git a/algebraic-structures.private.list.zip.applicative.scm b/algebraic-structures.private.list.zip.applicative.scm
new file mode 100644
index 0000000..8713ef9
--- /dev/null
+++ b/algebraic-structures.private.list.zip.applicative.scm
@@ -0,0 +1,14 @@
+(module (algebraic-structures private list zip applicative) ()
+  (import scheme
+          (rename (only (srfi 1) fold reduce)
+                  (fold srfi:fold)
+                  (reduce srfi:reduce))
+          (only (chicken base) assert)
+          (chicken module))
+  (export pure map2)
+  (reexport (algebraic-structures list functor))
+
+  (define (pure x) (list x))
+
+  (define (map2 f xs ys)
+    (map f xs ys)))