blob: a7305a0dda502ba57736dcfaecdb98dcf7e910f3 (
about) (
plain)
1
2
3
4
5
6
7
|
(module (algebraic-structs monad list base) (pure map map2 >>=)
(import (except scheme map)
(algebraic-structs applicative list)
(only (srfi 1) append-map))
(define (>>= lst f)
(append-map f lst)))
|