diff options
Diffstat (limited to 'collect.scm')
| -rw-r--r-- | collect.scm | 10 |
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)) |