/[guile]/guile/guile-core/srfi/srfi-1.scm
ViewVC logotype

Diff of /guile/guile-core/srfi/srfi-1.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by mvo, Tue Apr 22 22:41:19 2003 UTC revision 1.23 by kryde, Fri May 9 22:38:54 2003 UTC
# Line 347  Line 347 
347    
348  (define (car+cdr x) (values (car x) (cdr x)))  (define (car+cdr x) (values (car x) (cdr x)))
349    
350  (define (take x i)  (define take list-head)
351    (let lp ((n i) (l x) (acc '()))  (define drop list-tail)
352      (if (<= n 0)  
       (reverse! acc)  
       (lp (- n 1) (cdr l) (cons (car l) acc)))))  
 (define (drop x i)  
   (let lp ((n i) (l x))  
     (if (<= n 0)  
       l  
       (lp (- n 1) (cdr l)))))  
353  (define (take-right flist i)  (define (take-right flist i)
354    (let lp ((n i) (l flist))    (let lp ((n i) (l flist))
355      (if (<= n 0)      (if (<= n 0)

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26