diff options
Diffstat (limited to 'algebraic-structs.alternative.make.scm')
-rw-r--r-- | algebraic-structs.alternative.make.scm | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/algebraic-structs.alternative.make.scm b/algebraic-structs.alternative.make.scm deleted file mode 100644 index df4e0f4..0000000 --- a/algebraic-structs.alternative.make.scm +++ /dev/null @@ -1,10 +0,0 @@ -(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))) |