aboutsummaryrefslogtreecommitdiffstats
path: root/collect.scm
diff options
context:
space:
mode:
Diffstat (limited to 'collect.scm')
-rw-r--r--collect.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/collect.scm b/collect.scm
index abdf209..35a333d 100644
--- a/collect.scm
+++ b/collect.scm
@@ -23,10 +23,10 @@
(define-operation (collect:gen-elts <collection>) ;; return element generator
;; default behavior
(cond ;; see utilities, below, for generators
- ((vector? <collection>) (collect:vector-gen-elts <collection>))
+ ((vector? <collection>) (collect:vector-gen-elts <collection>))
((list? <collection>) (collect:list-gen-elts <collection>))
((string? <collection>) (collect:string-gen-elts <collection>))
- (else
+ (else
(slib:error "Operation not supported: GEN-ELTS " (yasos:print obj #f)))
) )
@@ -117,7 +117,7 @@
(let loop ( (count 0) )
(cond
((< count max+1)
- (set! <seed>
+ (set! <seed>
(apply <proc> <seed> (map (lambda (g) (g)) generators)))
(loop (collect:add1 count))
)
@@ -171,7 +171,7 @@
(define (set-loop last this idx)
(cond
- ((zero? idx)
+ ((zero? idx)
(set-cdr! last (cons <value> (cdr this)))
<list>
)
@@ -203,7 +203,7 @@
(let ( (max+1 (yasos:size vec))
(index 0)
)
- (lambda ()
+ (lambda ()
(cond ((< index max+1)
(set! index (collect:add1 index))
(<accessor> vec (collect:sub1 index))