diff options
author | Masaya Tojo <masaya@tojo.tokyo> | 2024-06-13 23:51:03 +0900 |
---|---|---|
committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-06-13 23:51:03 +0900 |
commit | 6c7ab94299b0996d2dbba5305f4e4f81d2405738 (patch) | |
tree | c8b7d0a8dc2f07fb9de11cde532dc8b2a38b0cc4 /algebraic-structures.applicative.scm | |
parent | dfe3239e439de67dcf0fb3acba7b94f81da0fd49 (diff) |
Rename procedures `map` to `map1` and `map*` to `map`
Diffstat (limited to 'algebraic-structures.applicative.scm')
-rw-r--r-- | algebraic-structures.applicative.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/algebraic-structures.applicative.scm b/algebraic-structures.applicative.scm index ac3028a..489f76d 100644 --- a/algebraic-structures.applicative.scm +++ b/algebraic-structures.applicative.scm @@ -1,5 +1,5 @@ -(functor ((algebraic-structures applicative) (A (pure map map2))) - (pure map map2 map* apply) +(functor ((algebraic-structures applicative) (A (pure map1 map2))) + (pure map1 map2 map apply) (import (rename scheme (map scheme:map) (apply scheme:apply)) (only (chicken base) sub1 add1 foldl case-lambda) A @@ -16,9 +16,9 @@ (lambda (args) (k (cons x args)))))))) - (define map* + (define map (case-lambda - ((f x) (map f x)) + ((f x) (map1 f x)) ((f x y) (map2 f x y)) ((f x . xs) (let ((g (curry-n f (add1 (length xs))))) |