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 |
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 |
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? |
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 |
|
|
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 |
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 |
|
|