From c98d8212928d109760c27446eb954c2202596f27 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Sun, 16 Jun 2024 19:25:18 +0900 Subject: Import only necessary identifiers --- algebraic-structures.semigroup.reduce.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'algebraic-structures.semigroup.reduce.scm') 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))) -- cgit v1.2.3