blob: 3d1dba4212383ffb90e275a6408740ead1c1a7b0 (
about) (
plain)
1
2
3
4
5
6
7
8
|
(module (algebraic-structures alternative list base) (pure map map2 alt empty)
(import (except scheme map apply)
(algebraic-structures applicative list))
(define (alt x y)
(append x y))
(define empty '()))
|