diff options
author | Masaya Tojo <masaya@tojo.tokyo> | 2024-06-16 19:25:18 +0900 |
---|---|---|
committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-06-16 19:25:18 +0900 |
commit | c98d8212928d109760c27446eb954c2202596f27 (patch) | |
tree | c2547e228b138451dbafa144bd33c4a1502a162d /algebraic-structures.semigroup.reduce.scm | |
parent | 8a249bc142d021b42a1c71876c6adf3d1168f270 (diff) |
Import only necessary identifiers
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))) |