Add stream implementations

1 files changed, 10 insertions, 0 deletions

diff --git a/algebraic-structures.private.stream.alternative.scm b/algebraic-structures.private.stream.alternative.scm
new file mode 100644
index 0000000..0d90baa
--- /dev/null
+++ b/algebraic-structures.private.stream.alternative.scm
@@ -0,0 +1,10 @@
+(module (algebraic-structures private stream alternative) (alt empty)
+  (import (except scheme map apply)
+          (srfi 41)
+          (chicken module))
+  (reexport (algebraic-structures stream applicative))
+
+  (define empty stream-null)
+
+  (define (alt xs ys)
+    (stream-append xs ys)))