Add stream implementations

1 files changed, 11 insertions, 0 deletions

diff --git a/algebraic-structures.private.stream.zip.applicative.scm b/algebraic-structures.private.stream.zip.applicative.scm
new file mode 100644
index 0000000..8d56006
--- /dev/null
+++ b/algebraic-structures.private.stream.zip.applicative.scm
@@ -0,0 +1,11 @@
+(module (algebraic-structures private stream zip applicative) ()
+  (import scheme
+          (srfi 41)
+          (chicken module))
+  (export pure map2)
+  (reexport (algebraic-structures stream functor))
+
+  (define (pure x) (stream x))
+
+  (define (map2 f xs ys)
+    (stream-map f xs ys)))