blob: 73f3c84de8b3d5e5c948a383baceac5da12da361 (
about) (
plain)
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 '()))
|