mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
8b5eb68238
They can be close()d explicitly with close-file-descriptor, and will close() on gc, but only explicitly closing the last port on them will close the fileno. Notably needed for network sockets where we open separate input and output ports on the same socket.
31 lines
1.3 KiB
Scheme
31 lines
1.3 KiB
Scheme
|
|
(define-library (srfi 1)
|
|
(export
|
|
xcons cons* make-list list-tabulate list-copy circular-list iota
|
|
proper-list? circular-list? dotted-list? not-pair? null-list? list=
|
|
first second third fourth fifth sixth seventh eighth ninth tenth
|
|
car+cdr take drop take-right drop-right take! drop-right! split-at split-at!
|
|
last last-pair length+ concatenate append! concatenate! reverse!
|
|
append-reverse append-reverse!
|
|
zip unzip1 unzip2 unzip3 unzip4 unzip5 count
|
|
fold unfold pair-fold reduce fold-right unfold-right
|
|
pair-fold-right reduce-right
|
|
append-map append-map! map! pair-for-each filter-map map-in-order
|
|
filter partition remove filter! partition! remove! find find-tail any every
|
|
list-index take-while drop-while take-while! span break span! break!
|
|
delete delete-duplicates delete! delete-duplicates!
|
|
alist-cons alist-copy alist-delete alist-delete!
|
|
lset<= lset= lset-adjoin lset-union lset-union! lset-intersection
|
|
lset-intersection! lset-difference lset-difference! lset-xor lset-xor!
|
|
lset-diff+intersection lset-diff+intersection!)
|
|
(import (chibi))
|
|
(include "1/predicates.scm"
|
|
"1/selectors.scm"
|
|
"1/search.scm"
|
|
"1/misc.scm"
|
|
"1/constructors.scm"
|
|
"1/fold.scm"
|
|
"1/deletion.scm"
|
|
"1/alists.scm"
|
|
"1/lset.scm"))
|
|
|