algebraic-structs.alternative.list.base.scm


1
2
3
4
5
6
7
8

(module (algebraic-structs alternative list base) (pure map map2 alt empty)
  (import (except scheme map apply)
          (algebraic-structs applicative list))

  (define (alt x y)
    (append x y))

  (define empty '()))