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


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

(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)
          (only (algebraic-structures list functor)))
  (export pure map2)
  (reexport (algebraic-structures list functor))

  (define (pure x) (list x))

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