summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.scm
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2005-03-15 21:58:46 +0000
committerKevin Ryde <user42@zip.com.au>2005-03-15 21:58:46 +0000
commitbb560b9c16893f762699ba5a3109c8367fff8dfc (patch)
tree8cda03eeb68649c46dcdc8d7efab9721c572932c /srfi/srfi-1.scm
parentd2f57ee0142d21b5bff3d5006bb57bcdfd1709c1 (diff)
downloadguile-bb560b9c16893f762699ba5a3109c8367fff8dfc.tar.gz
(split-at, split-at!): Rewrite in C.
Diffstat (limited to 'srfi/srfi-1.scm')
-rw-r--r--srfi/srfi-1.scm16
1 files changed, 0 insertions, 16 deletions
diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index 2fedbab09..3676f9b8f 100644
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -366,22 +366,6 @@
'()
(lp (- n 1) (cdr l)))))))
-(define (split-at x i)
- (let lp ((l x) (n i) (acc '()))
- (if (<= n 0)
- (values (reverse! acc) l)
- (lp (cdr l) (- n 1) (cons (car l) acc)))))
-
-(define (split-at! x i)
- (if (<= i 0)
- (values '() x)
- (let lp ((l x) (n (- i 1)))
- (if (<= n 0)
- (let ((tmp (cdr l)))
- (set-cdr! l '())
- (values x tmp))
- (lp (cdr l) (- n 1))))))
-
(define (last pair)
(car (last-pair pair)))