summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.scm
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2003-07-28 23:43:51 +0000
committerKevin Ryde <user42@zip.com.au>2003-07-28 23:43:51 +0000
commit47f2726f4ce9bc20f29a84c30cd992585495e3c3 (patch)
tree9e317fd4847f3dc29dd96adea99641328514b03c /srfi/srfi-1.scm
parent603707f49b3c4dbbde7c2a2966bd86fdbb54efa3 (diff)
downloadguile-47f2726f4ce9bc20f29a84c30cd992585495e3c3.tar.gz
(concatenate, concatenate!): Use scm_append and scm_append_x.
Diffstat (limited to 'srfi/srfi-1.scm')
-rw-r--r--srfi/srfi-1.scm26
1 files changed, 0 insertions, 26 deletions
diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index 4b3b09160..507ebb3f6 100644
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -427,32 +427,6 @@
#f
(lp (cdr hare) (cdr tortoise) (+ l 2)))))))))
-(define (concatenate l-o-l)
- (let lp ((l l-o-l) (acc '()))
- (if (null? l)
- (reverse! acc)
- (let lp0 ((ll (car l)) (acc acc))
- (if (null? ll)
- (lp (cdr l) acc)
- (lp0 (cdr ll) (cons (car ll) acc)))))))
-
-(define (concatenate! l-o-l)
- (let lp0 ((l-o-l l-o-l))
- (cond
- ((null? l-o-l)
- '())
- ((null? (car l-o-l))
- (lp0 (cdr l-o-l)))
- (else
- (let ((result (car l-o-l)) (tail (last-pair (car l-o-l))))
- (let lp ((l (cdr l-o-l)) (ntail tail))
- (if (null? l)
- result
- (begin
- (set-cdr! ntail (car l))
- (lp (cdr l) (last-pair ntail))))))))))
-
-
(define (append-reverse rev-head tail)
(let lp ((l rev-head) (acc tail))
(if (null? l)