/[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.25 by kryde, Tue Jul 8 00:10:42 2003 UTC revision 1.26 by kryde, Sun Jul 13 23:05:31 2003 UTC
# Line 662  Line 662 
662    
663  ;;; Filtering & partitioning  ;;; Filtering & partitioning
664    
 (define (partition pred list)  
   (if (null? list)  
     (values '() '())  
     (if (pred (car list))  
       (receive (in out) (partition pred (cdr list))  
                (values (cons (car list) in) out))  
       (receive (in out) (partition pred (cdr list))  
                (values in (cons (car list) out))))))  
   
665  (define (remove pred list)  (define (remove pred list)
666    (filter (lambda (x) (not (pred x))) list))    (filter (lambda (x) (not (pred x))) list))
667    

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

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