aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--gtwiwtg.lisp10
-rw-r--r--package.lisp2
2 files changed, 6 insertions, 6 deletions
diff --git a/gtwiwtg.lisp b/gtwiwtg.lisp
index c07c015..76bcc60 100644
--- a/gtwiwtg.lisp
+++ b/gtwiwtg.lisp
@@ -196,14 +196,14 @@ THIS FUNCTION MODIFIES AND RETURNS ITS GENERATOR ARGUMENT."
gen))
-(defun bind! (fn gen)
+(defun inflate! (fn gen)
"FN is expected to be a function that accepts elements of GEN and
-returns a new generator. (BIND! FN GEN) returns a generator that is
+returns a new generator. (INFLATE! FN GEN) returns a generator that is
equivalent to (FUNCALL #'CONCAT! (MAP! FN GEN))
That is it generates each element of (FN X) for each X in GEN.
-BIND! MODIFIES AND RETURNS ITS GENERATOR ARGUMENT."
+INFLATE! MODIFIES AND RETURNS ITS GENERATOR ARGUMENT."
(assert (not (dirty-p gen)))
(let ((orig-fn (next-fn gen))
(orig-p (next-p-fn gen))
@@ -234,7 +234,7 @@ EQL, an error will be signalled.
CONCAT! MODIFIES AND RETURNS ITS FIRST ARGUMENT."
(assert (all-good (list* gen gens)))
(dolist (g gens) (make-dirty g)) ;; to help ensure that gens can be combined elsewhere
- (bind! #'identity (seq (list* gen gens))))
+ (inflate! #'identity (seq (list* gen gens))))
(defun zip! (gen &rest gens)
(apply #'map! #'list gen gens))
@@ -393,4 +393,4 @@ Not meant for general use. just a utility used by THREAD-THROUGH"
:displaced-to vec
:displaced-index-offset 1
:element-type (array-element-type vec)))))
- (bind! (lambda (subperm) (thread-through elem subperm)) subperms))))
+ (inflate! (lambda (subperm) (thread-through elem subperm)) subperms))))
diff --git a/package.lisp b/package.lisp
index a7ff741..0b8f4bf 100644
--- a/package.lisp
+++ b/package.lisp
@@ -9,7 +9,7 @@
#:yield-to!
#:map!
#:filter!
- #:bind!
+ #:inflate!
#:concat!
#:zip!
#:iter