mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* srfi-1.scm: Re-export all srfi-1 bindings implemented by the

Browse source 
core.  (Thanks to Kevin Ryde.)
This commit is contained in:
Mikael Djurfeldt 2003-03-24 09:13:35 +00:00
parent 570b5b1481
commit b8b0abf067
2 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
srfi/ChangeLog
View file

@ -1,3 +1,8 @@
2003-03-24 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* srfi-1.scm: Re-export all srfi-1 bindings implemented by the
core. (Thanks to Kevin Ryde.)
2003-03-12 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* srfi-13.scm: Mark replacements.

9
srfi/srfi-1.scm
View file

@ -88,7 +88,7 @@
;; caar <= in the core
;; cadr <= in the core
;; cdar <= in the core
;; cddr <= in the core
o ;; cddr <= in the core
;; caaar <= in the core
;; caadr <= in the core
;; cadar <= in the core
@ -232,6 +232,13 @@
;; set-car! <= in the core
;; set-cdr! <= in the core
)
:re-export (cons list cons* make-list list-copy 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
delete delete! assoc)
)