From 6c7ab94299b0996d2dbba5305f4e4f81d2405738 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Thu, 13 Jun 2024 23:51:03 +0900 Subject: Rename procedures `map` to `map1` and `map*` to `map` --- tests/run.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'tests') diff --git a/tests/run.scm b/tests/run.scm index 0d76cda..b49db8e 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -126,12 +126,12 @@ (import (algebraic-structures functor)) (module (data list functor) = (algebraic-structures functor) - (import scheme (chicken module)) - (export map)) + (import (chicken module)) + (reexport (rename scheme (map map1)))) (import (prefix (data list functor) list:)) -(test '((a) (b) (c)) (list:map list '(a b c))) +(test '((a) (b) (c)) (list:map1 list '(a b c))) (test-end "functor") @@ -179,7 +179,7 @@ (list:map2 list '(a b c) '(1 2))) (test '((a 1 z) (a 2 z) (b 1 z) (b 2 z) (c 1 z) (c 2 z)) - (list:map* list '(a b c) '(1 2) '(z))) + (list:map list '(a b c) '(1 2) '(z))) (test-end "applicative") @@ -187,7 +187,7 @@ (import (algebraic-structures monad)) (module (data list monad) = (algebraic-structures monad) - (import (except scheme map) + (import scheme (chicken module) (srfi 1)) (reexport (data list applicative)) -- cgit v1.2.3