algebraic-structures.private.stream.zip.applicative.scm


1
2
3
4
5
6
7
8
9
10
11
12

(module (algebraic-structures private stream zip applicative) ()
  (import scheme
          (srfi 41)
          (chicken module)
          (only (algebraic-structures stream functor)))
  (export pure map2)
  (reexport (algebraic-structures stream functor))

  (define (pure x) (stream x))

  (define (map2 f xs ys)
    (stream-map f xs ys)))