algebraic-structures.private.list.alternative.scm


1
2
3
4
5
6
7
8
9
10

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

  (define empty '())

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