mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

(list-copy): New function, derived

Browse source 
from core list-copy but allowing improper lists, per SRFI-1 spec.
This commit is contained in:
Kevin Ryde 2003-08-22 22:36:18 +00:00
parent 01dbf76f90
commit d61261f07d
3 changed files with 37 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
srfi/srfi-1.scm
View file

@ -43,7 +43,7 @@
;; cons* <= in the core
;; make-list <= in the core
list-tabulate
;; list-copy <= in the core
list-copy
circular-list
;; iota ; Extended.
@ -207,14 +207,14 @@
;; set-car! <= in the core
;; set-cdr! <= in the core
)
:re-export (cons list cons* make-list list-copy pair? null?
:re-export (cons list cons* make-list pair? null?
car cdr caar cadr cdar cddr
caaar caadr cadar caddr cdaar cdadr cddar cdddr
caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr
cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr
list-ref last-pair length append append! reverse reverse!
filter filter! memq memv assq assv set-car! set-cdr!)
:replace (iota map for-each map-in-order list-index member
:replace (iota map for-each map-in-order list-copy list-index member
delete delete! assoc)
)