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