algebraic-structures.private.list.alternative.scm


1
2
3
4
5
6
7
8
9

(module (algebraic-structures private list alternative) (alt empty)
  (import (except scheme map apply)
          (chicken module))
  (reexport (algebraic-structures list applicative))

  (define empty '())

  (define (alt xs ys)
    (append xs ys)))