diff options
author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:28 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:28 -0800 |
commit | bd9733926076885e3417b74de76e4c9c7bc56254 (patch) | |
tree | 2c99dced547d48407ad44cb0e45e31bb4d02ce43 /collect.scm | |
parent | fa3f23105ddcf07c5900de47f19af43d1db1b597 (diff) | |
download | slib-bd9733926076885e3417b74de76e4c9c7bc56254.tar.gz slib-bd9733926076885e3417b74de76e4c9c7bc56254.zip |
Import Upstream version 2c7upstream/2c7
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)) |