algebraic-structs.alternative.make.scm


1
2
3
4
5
6
7
8
9
10

(functor ((algebraic-structs alternative make) (A (pure map map2 alt empty)))
    (pure map map2 alt empty guard)
  (import (except scheme map apply)
          (only (chicken base) void)
          A)

  (define (guard b)
    (if b
        (pure (void))
        empty)))