88 |
;; caar <= in the core |
;; caar <= in the core |
89 |
;; cadr <= in the core |
;; cadr <= in the core |
90 |
;; cdar <= in the core |
;; cdar <= in the core |
91 |
;; cddr <= in the core |
o ;; cddr <= in the core |
92 |
;; caaar <= in the core |
;; caaar <= in the core |
93 |
;; caadr <= in the core |
;; caadr <= in the core |
94 |
;; cadar <= in the core |
;; cadar <= in the core |
232 |
;; set-car! <= in the core |
;; set-car! <= in the core |
233 |
;; set-cdr! <= in the core |
;; set-cdr! <= in the core |
234 |
) |
) |
235 |
|
:re-export (cons list cons* make-list list-copy pair? null? |
236 |
|
car cdr caar cadr cdar cddr |
237 |
|
caaar caadr cadar caddr cdaar cdadr cddar cdddr |
238 |
|
caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr |
239 |
|
cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr |
240 |
|
list-ref last-pair length append append! reverse reverse! |
241 |
|
filter filter! memq memv assq assv set-car! set-cdr!) |
242 |
:replace (iota map for-each map-in-order list-index member |
:replace (iota map for-each map-in-order list-index member |
243 |
delete delete! assoc) |
delete delete! assoc) |
244 |
) |
) |