algebraic-structures.private.stream.alternative.scm


1
2
3
4
5
6
7
8
9
10
11

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

  (define empty stream-null)

  (define (alt xs ys)
    (stream-append xs ys)))