aboutsummaryrefslogtreecommitdiff
path: root/algebraic-structures.private.vector.zip.applicative.scm
blob: 5dbb4aa29628ddf828a8d5938396798aab568b17 (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
(module (algebraic-structures private vector zip applicative) ()
  (import scheme
          (chicken module)
          (only (srfi 133) vector-map)
          (only (algebraic-structures vector functor)))
  (export pure map2)
  (reexport (algebraic-structures vector functor))

  (define (pure x) (vector x))

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