diff options
Diffstat (limited to 'algebraic-structures.semigroup.reduce.scm')
-rw-r--r-- | algebraic-structures.semigroup.reduce.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/algebraic-structures.semigroup.reduce.scm b/algebraic-structures.semigroup.reduce.scm index f5340e7..72fb831 100644 --- a/algebraic-structures.semigroup.reduce.scm +++ b/algebraic-structures.semigroup.reduce.scm @@ -1,4 +1,6 @@ (functor ((algebraic-structures semigroup reduce) (S (<>)) (R (reduce))) (reduce) - (import scheme S (rename R (reduce reducible:reduce))) + (import scheme + (only S <>) + (rename (only R reduce) (reduce reducible:reduce))) (define (reduce xs) (reducible:reduce <> xs))) |