summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.scm
diff options
context:
space:
mode:
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)))