diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-03-15 21:58:46 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-03-15 21:58:46 +0000 |
commit | bb560b9c16893f762699ba5a3109c8367fff8dfc (patch) | |
tree | 8cda03eeb68649c46dcdc8d7efab9721c572932c | |
parent | d2f57ee0142d21b5bff3d5006bb57bcdfd1709c1 (diff) | |
download | guile-bb560b9c16893f762699ba5a3109c8367fff8dfc.tar.gz |
(split-at, split-at!): Rewrite in C.
-rw-r--r-- | srfi/srfi-1.scm | 16 |
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))) |