43 |
;; cons* <= in the core |
;; cons* <= in the core |
44 |
;; make-list <= in the core |
;; make-list <= in the core |
45 |
list-tabulate |
list-tabulate |
46 |
;; list-copy <= in the core |
list-copy |
47 |
circular-list |
circular-list |
48 |
;; iota ; Extended. |
;; iota ; Extended. |
49 |
|
|
207 |
;; set-car! <= in the core |
;; set-car! <= in the core |
208 |
;; set-cdr! <= in the core |
;; set-cdr! <= in the core |
209 |
) |
) |
210 |
:re-export (cons list cons* make-list list-copy pair? null? |
:re-export (cons list cons* make-list pair? null? |
211 |
car cdr caar cadr cdar cddr |
car cdr caar cadr cdar cddr |
212 |
caaar caadr cadar caddr cdaar cdadr cddar cdddr |
caaar caadr cadar caddr cdaar cdadr cddar cdddr |
213 |
caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr |
caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr |
214 |
cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr |
cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr |
215 |
list-ref last-pair length append append! reverse reverse! |
list-ref last-pair length append append! reverse reverse! |
216 |
filter filter! memq memv assq assv set-car! set-cdr!) |
filter filter! memq memv assq assv set-car! set-cdr!) |
217 |
:replace (iota map for-each map-in-order list-index member |
:replace (iota map for-each map-in-order list-copy list-index member |
218 |
delete delete! assoc) |
delete delete! assoc) |
219 |
) |
) |
220 |
|
|