/[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.17 by mdj, Sun Dec 1 13:56:11 2002 UTC revision 1.18 by mdj, Mon Mar 10 23:18:05 2003 UTC
# Line 1  Line 1 
1  ;;; srfi-1.scm --- List Library  ;;; srfi-1.scm --- List Library
2    
3  ;;      Copyright (C) 2001, 2002 Free Software Foundation, Inc.  ;;      Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc.
4  ;;  ;;
5  ;; This program is free software; you can redistribute it and/or  ;; This program is free software; you can redistribute it and/or
6  ;; modify it under the terms of the GNU General Public License as  ;; modify it under the terms of the GNU General Public License as
# Line 59  Line 59 
59    
60  (define-module (srfi srfi-1)  (define-module (srfi srfi-1)
61    :use-module (ice-9 session)    :use-module (ice-9 session)
62    :use-module (ice-9 receive))    :use-module (ice-9 receive)
63      :export (
 (export  
64  ;;; Constructors  ;;; Constructors
65   ;; cons                                <= in the core   ;; cons                                <= in the core
66   ;; list                                <= in the core   ;; list                                <= in the core
# Line 71  Line 70 
70   list-tabulate   list-tabulate
71   ;; list-copy                           <= in the core   ;; list-copy                           <= in the core
72   circular-list   circular-list
73   iota                                   ; Extended.   ;; iota                                ; Extended.
74    
75  ;;; Predicates  ;;; Predicates
76   proper-list?   proper-list?
# Line 165  Line 164 
164   reduce-right   reduce-right
165   unfold   unfold
166   unfold-right   unfold-right
167   map                                    ; Extended.   ;; map                                 ; Extended.
168   for-each                               ; Extended.   ;; for-each                            ; Extended.
169   append-map   append-map
170   append-map!   append-map!
171   map!   map!
172   map-in-order                           ; Extended.   ;; map-in-order                        ; Extended.
173   pair-for-each   pair-for-each
174   filter-map   filter-map
175    
# Line 194  Line 193 
193   break!   break!
194   any   any
195   every   every
196   list-index                             ; Extended.   ;; list-index                          ; Extended.
197   member                                 ; Extended.   ;; member                              ; Extended.
198   ;; memq                                <= in the core   ;; memq                                <= in the core
199   ;; memv                                <= in the core   ;; memv                                <= in the core
200    
201  ;;; Deletion  ;;; Deletion
202   delete                                 ; Extended.   ;; delete                              ; Extended.
203   delete!                                ; Extended.   ;; delete!                             ; Extended.
204   delete-duplicates   delete-duplicates
205   delete-duplicates!   delete-duplicates!
206    
207  ;;; Association lists  ;;; Association lists
208   assoc                                  ; Extended.   ;; assoc                               ; Extended.
209   ;; assq                                <= in the core   ;; assq                                <= in the core
210   ;; assv                                <= in the core   ;; assv                                <= in the core
211   alist-cons   alist-cons
# Line 233  Line 232 
232   ;; set-car!                            <= in the core   ;; set-car!                            <= in the core
233   ;; set-cdr!                            <= in the core   ;; set-cdr!                            <= in the core
234   )   )
235      :replace (iota map for-each map-in-order list-index member
236                delete delete! assoc)
237      )
238    
239  (cond-expand-provide (current-module) '(srfi-1))  (cond-expand-provide (current-module) '(srfi-1))
240    

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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