Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding define-library-alias (issue #650)

Browse source
This commit is contained in:
Alex Shinn 2020-05-26 22:20:35 +09:00
parent 0957b54f51
commit 9901a67b20
36 changed files with 48 additions and 1353 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lib/meta-7.scm
View file

@ -312,6 +312,18 @@
(define-syntax define-library define-library-transformer) (define-syntax define-library define-library-transformer)
(define-syntax module define-library-transformer) (define-syntax module define-library-transformer)
(define-syntax define-library-alias
(er-macro-transformer
(lambda (expr rename compare)
;; we need to load the original module first, not just find it,
;; or else the includes would happen relative to the alias
(let ((name (cadr expr))
(orig (load-module (car (cddr expr)))))
(if (not orig)
(error "couldn't find library to alias" (car (cddr expr)))
`(,(rename 'add-module!) (,(rename 'quote) ,name)
(,(rename 'quote) ,orig)))))))
(define-syntax pop-this-path (define-syntax pop-this-path
(er-macro-transformer (er-macro-transformer
(lambda (expr rename compare) (lambda (expr rename compare)

22
lib/scheme/bitwise.sld
View file

@ -1,22 +1,2 @@
(define-library (scheme bitwise) (define-library-alias (scheme bitwise) (srfi 151))
(import (srfi 151))
(export bitwise-not
bitwise-and bitwise-ior
bitwise-xor bitwise-eqv
bitwise-nand bitwise-nor
bitwise-andc1 bitwise-andc2
bitwise-orc1 bitwise-orc2
arithmetic-shift bit-count integer-length
bitwise-if
bit-set? any-bit-set? every-bit-set?
first-set-bit
bit-field bit-field-any? bit-field-every?
bit-field-clear bit-field-set
bit-field-replace bit-field-replace-same
bit-field-rotate bit-field-reverse
copy-bit bits->list list->bits
bits->vector vector->bits
bits bit-swap
bitwise-fold bitwise-for-each bitwise-unfold
make-bitwise-generator))

4
lib/scheme/box.sld
View file

@ -1,4 +1,2 @@
(define-library (scheme box) (define-library-alias (scheme box) (srfi 111))
(import (srfi 111))
(export box box? unbox set-box!))

4
lib/scheme/case-lambda.sld
View file

@ -1,4 +1,2 @@
(define-library (scheme case-lambda) (define-library-alias (scheme case-lambda) (srfi 16))
(import (srfi 16))
(export case-lambda))

37
lib/scheme/charset.sld
View file

@ -1,37 +1,2 @@
(define-library (scheme charset) (define-library-alias (scheme charset) (srfi 14))
(import (srfi 14))
(export
char-set? char-set= char-set<=
char-set-hash
char-set-cursor char-set-ref char-set-cursor-next end-of-char-set?
char-set-fold char-set-unfold char-set-unfold!
char-set-for-each char-set-map
char-set-copy char-set
list->char-set string->char-set
list->char-set! string->char-set!
char-set-filter ucs-range->char-set ->char-set
char-set-filter! ucs-range->char-set!
char-set->list char-set->string
char-set-size char-set-count char-set-contains?
char-set-every char-set-any
char-set-adjoin char-set-delete
char-set-adjoin! char-set-delete!
char-set-complement char-set-union char-set-intersection
char-set-complement! char-set-union! char-set-intersection!
char-set-difference char-set-xor char-set-diff+intersection
char-set-difference! char-set-xor! char-set-diff+intersection!
char-set:lower-case char-set:upper-case char-set:title-case
char-set:letter char-set:digit char-set:letter+digit
char-set:graphic char-set:printing char-set:whitespace
char-set:iso-control char-set:punctuation char-set:symbol
char-set:hex-digit char-set:blank char-set:ascii
char-set:empty char-set:full))

25
lib/scheme/comparator.sld
View file

@ -1,25 +1,2 @@
(define-library (scheme comparator) (define-library-alias (scheme comparator) (srfi 128))
(import (srfi 128))
(export
;; Predicates:
comparator? comparator-ordered? comparator-hashable?
;; Constructors:
make-comparator make-pair-comparator make-list-comparator
make-vector-comparator make-eq-comparator make-eqv-comparator
make-equal-comparator
;; Standard hash functions:
boolean-hash char-hash char-ci-hash string-hash string-ci-hash
symbol-hash number-hash
;; Bounds and salt:
hash-bound hash-salt
;; Default comparators:
make-default-comparator default-hash comparator-register-default!
;; Accessors and invokers:
comparator-type-test-predicate comparator-equality-predicate
comparator-ordering-predicate comparator-hash-function
comparator-test-type comparator-check-type comparator-hash
;; Comparison predicates:
=? <? >? <=? >=?
;;Syntax:
comparator-if<=>))

5
lib/scheme/ephemeron.sld
View file

@ -1,5 +1,2 @@
(define-library (scheme ephemeron) (define-library-alias (scheme ephemeron) (srfi 124))
(import (srfi 124))
(export make-ephemeron ephemeron? ephemeron-broken?
ephemeron-key ephemeron-datum))

32
lib/scheme/flonum.sld
View file

@ -1,32 +1,2 @@
(define-library (scheme flonum)
(import (srfi 144))
(export
fl-e fl-e-2 fl-log2-e fl-log10-e fl-log-2 fl-log-10 fl-pi
fl-1/pi fl-2/pi fl-pi/2 fl-pi/4 fl-sqrt-pi fl-2/sqrt-pi
fl-sqrt-2 fl-sqrt-3 fl-sqrt-5 fl-sqrt-10 fl-1/sqrt-2
fl-cbrt-2 fl-cbrt-3 fl-4thrt-2 fl-phi fl-log-phi fl-1/log-phi
fl-euler fl-e-euler fl-sin-1 fl-cos-1 fl-greatest fl-least
fl-integer-exponent-zero fl-integer-exponent-nan fl-fast-+*
flonum flonum? fl= fl< fl> fl<= fl>= flodd? fleven? (define-library-alias (scheme flonum) (srfi 144))
flunordered? flinteger? flzero? flpositive? flnegative?
fl+ fl- fl* fl/ fl+* flmax flmin flabsdiff
flnumerator fldenominator
fladjacent flcopysign flsgn make-flonum flinteger-fraction
flexponent flinteger-exponent flnormalized-fraction-exponent
sign-bit flfinite? flinfinite? flnan? flnormalized? fldenormalized?
flabs flposdiff flfloor flceiling flround fltruncate
flexp flexp2 flexp-1 flsquare flsqrt flcbrt flhypot flexpt fllog fllog1+
fllog2 fllog10 flsin flcos fltan flasin flacos flatan
flsinh flcosh fltanh flasinh flacosh flatanh flremquo
flgamma flloggamma flfirst-bessel flsecond-bessel flerf flerfc
flfloor/ flfloor-quotient flfloor-remainder
flceiling/ flceiling-quotient flceiling-remainder
fltruncate/ fltruncate-quotient fltruncate-remainder
flround/ flround-quotient flround-remainder
fleuclidean/ fleuclidean-quotient fleuclidean-remainder
flbalanced/ flbalanced-quotient flbalanced-remainder))

39
lib/scheme/generator.sld
View file

@ -1,39 +1,2 @@
(define-library (scheme generator) (define-library-alias (scheme generator) (srfi 121))
(import (srfi 121))
(export generator
make-iota-generator
make-range-generator
make-coroutine-generator
list->generator
vector->generator
reverse-vector->generator
string->generator
bytevector->generator
make-for-each-generator
make-unfold-generator
gcons*
gappend
gcombine
gfilter
gremove
gtake
gdrop
gtake-while
gdrop-while
gdelete
gdelete-neighbor-dups
gindex
gselect
generator->list
generator->reverse-list
generator->vector
generator->vector!
generator->string
generator-fold
generator-for-each
generator-find
generator-count
generator-any
generator-every
generator-unfold))

29
lib/scheme/hash-table.sld
View file

@ -1,29 +1,2 @@
(define-library (scheme hash-table) (define-library-alias (scheme hash-table) (srfi 125))
(import (srfi 125))
(export
;; Constructors:
make-hash-table hash-table hash-table-unfold alist->hash-table
;; Predicates:
hash-table? hash-table-contains? hash-table-exists?
hash-table-empty? hash-table=? hash-table-mutable?
;; Accessors:
hash-table-ref hash-table-ref/default
;; Mutators:
hash-table-set! hash-table-delete! hash-table-intern!
hash-table-update! hash-table-update!/default hash-table-pop!
hash-table-clear!
;; The whole hash table:
hash-table-size hash-table-keys hash-table-values
hash-table-entries hash-table-find hash-table-count
;; Mapping and folding:
hash-table-map hash-table-for-each hash-table-walk
hash-table-map! hash-table-map->list hash-table-fold hash-table-prune!
;; Copying and conversion:
hash-table-copy hash-table-empty-copy hash-table->alist
;; Hash tables as sets:
hash-table-union! hash-table-merge!
hash-table-intersection! hash-table-difference! hash-table-xor!
;; Hash functions and reflectivity:
hash string-hash string-ci-hash hash-by-identity
hash-table-equivalence-function hash-table-hash-function))

31
lib/scheme/ideque.sld
View file

@ -1,31 +1,2 @@
(define-library (scheme ideque) (define-library-alias (scheme ideque) (srfi 134))
(import (srfi 134))
(export ideque ideque-tabulate ideque-unfold ideque-unfold-right
ideque? ideque-empty? ideque= ideque-any ideque-every
ideque-front ideque-add-front ideque-remove-front
ideque-back ideque-add-back ideque-remove-back
ideque-ref
ideque-take ideque-take-right ideque-drop ideque-drop-right
ideque-split-at
ideque-length ideque-append ideque-reverse
ideque-count ideque-zip
ideque-map ideque-filter-map
ideque-for-each ideque-for-each-right
ideque-fold ideque-fold-right
ideque-append-map
ideque-filter ideque-remove ideque-partition
ideque-find ideque-find-right
ideque-take-while ideque-take-while-right
ideque-drop-while ideque-drop-while-right
ideque-span ideque-break
list->ideque ideque->list
generator->ideque ideque->generator
))

79
lib/scheme/ilist.sld
View file

@ -1,79 +1,2 @@
(define-library (scheme ilist) (define-library-alias (scheme ilist) (srfi 116))
(import (srfi 116))
(export
;; Syntax
iq
;; Constructors
ipair ilist
xipair ipair* make-ilist ilist-tabulate
ilist-copy iiota
;; Predicates
ipair? proper-ilist? ilist? dotted-ilist?
not-ipair? null-ilist?
ilist=
;; Selectors
icar icdr icaar icadr icdar icddr
icaaaar icaaadr icaadar icaaddr
icadaar icadadr icaddar icadddr
icdaaar icdaadr icdadar icdaddr
icddaar icddadr icdddar icddddr
icaaar icaadr icadar icaddr
icdaar icdadr icddar icdddr
ilist-ref
ifirst isecond ithird ifourth ififth isixth iseventh ieighth ininth itenth
icar+icdr
itake idrop ilist-tail
itake-right idrop-right
isplit-at
ilast last-ipair
;; Miscellaneous: length, append, concatenate, reverse, zip & count
ilength
iappend iconcatenate ireverse iappend-reverse
izip iunzip1 iunzip2 iunzip3 iunzip4 iunzip5
icount
;; Fold, unfold & map
imap ifor-each
ifold iunfold ipair-fold ireduce
ifold-right iunfold-right ipair-fold-right ireduce-right
iappend-map ipair-for-each ifilter-map imap-in-order
;; Filtering & partitioning
ifilter ipartition iremove
;; Searching
imember imemq imemv
ifind ifind-tail
iany ievery
ilist-index
itake-while idrop-while
ispan ibreak
;; Deleting
idelete idelete-duplicates
;; Immutable association lists
iassoc iassq iassv
ialist-cons ialist-delete
;; Replacement
replace-icar replace-icdr
;; Conversion
pair->ipair ipair->pair
list->ilist ilist->list
tree->itree itree->tree
gtree->itree gtree->tree
;; Procedure application
iapply
;; Comparators
ipair-comparator ilist-comparator
make-ilist-comparator make-improper-ilist-comparator
make-icar-comparator make-icdr-comparator))

11
lib/scheme/list-queue.sld
View file

@ -1,11 +1,2 @@
(define-library (scheme list-queue) (define-library-alias (scheme list-queue) (srfi 117))
(import (srfi 117))
(export
make-list-queue list-queue list-queue-copy list-queue-unfold
list-queue-unfold-right list-queue? list-queue-empty?
list-queue-front list-queue-back list-queue-list list-queue-first-last
list-queue-add-front! list-queue-add-back! list-queue-remove-front!
list-queue-remove-back! list-queue-remove-all! list-queue-set-list!
list-queue-append list-queue-append! list-queue-concatenate
list-queue-map list-queue-map! list-queue-for-each))

21
lib/scheme/list.sld
View file

@ -1,21 +1,2 @@
(define-library (scheme list) (define-library-alias (scheme list) (srfi 1))
(import (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!))

25
lib/scheme/lseq.sld
View file

@ -1,25 +1,2 @@
(define-library (scheme lseq) (define-library-alias (scheme lseq) (srfi 127))
(import (srfi 127))
(export
;; Constructors
generator->lseq
;; Predicates
lseq? lseq=?
;; Selectors
lseq-car lseq-cdr
lseq-first lseq-rest lseq-ref
lseq-take lseq-drop
;; The whole lazy sequence
lseq-realize lseq->generator
lseq-length
lseq-append lseq-zip
;; Mapping and filtering
lseq-map lseq-for-each
lseq-filter lseq-remove
;; Searching
lseq-find lseq-find-tail
lseq-any lseq-every
lseq-index
lseq-take-while lseq-drop-while
lseq-member lseq-memq lseq-memv))

38
lib/scheme/mapping.sld
View file

@ -1,38 +1,2 @@
(define-library (scheme mapping) (define-library-alias (scheme mapping) (srfi 146))
(import (srfi 146))
(export mapping mapping-unfold
mapping/ordered mapping-unfold/ordered
mapping? mapping-contains? mapping-empty? mapping-disjoint?
mapping-ref mapping-ref/default mapping-key-comparator
mapping-adjoin mapping-adjoin!
mapping-set mapping-set!
mapping-replace mapping-replace!
mapping-delete mapping-delete! mapping-delete-all mapping-delete-all!
mapping-intern mapping-intern!
mapping-update mapping-update! mapping-update/default mapping-update!/default
mapping-pop mapping-pop!
mapping-search mapping-search!
mapping-size mapping-find mapping-count mapping-any? mapping-every?
mapping-keys mapping-values mapping-entries
mapping-map mapping-map->list mapping-for-each mapping-fold
mapping-filter mapping-filter!
mapping-remove mapping-remove!
mapping-partition mapping-partition!
mapping-copy mapping->alist alist->mapping alist->mapping!
alist->mapping/ordered alist->mapping/ordered!
mapping=? mapping<? mapping>? mapping<=? mapping>=?
mapping-union mapping-intersection mapping-difference mapping-xor
mapping-union! mapping-intersection! mapping-difference! mapping-xor!
make-mapping-comparator
mapping-comparator
mapping-min-key mapping-max-key
mapping-min-value mapping-max-value
mapping-key-predecessor mapping-key-successor
mapping-range= mapping-range< mapping-range> mapping-range<= mapping-range>=
mapping-range=! mapping-range<! mapping-range>! mapping-range<=! mapping-range>=!
mapping-split
mapping-catenate mapping-catenate!
mapping-map/monotone mapping-map/monotone!
mapping-fold/reverse
comparator?))

11
lib/scheme/regex.sld
View file

@ -1,9 +1,2 @@
(define-library (scheme regex)
(import (srfi 115)) (define-library-alias (scheme regex) (srfi 115))
(export regexp regexp? valid-sre? rx regexp->sre char-set->sre
regexp-matches regexp-matches? regexp-search
regexp-replace regexp-replace-all regexp-match->list
regexp-fold regexp-extract regexp-split regexp-partition
regexp-match? regexp-match-count
regexp-match-submatch
regexp-match-submatch-start regexp-match-submatch-end))

60
lib/scheme/set.sld
View file

@ -1,60 +1,2 @@
(define-library (scheme set) (define-library-alias (scheme set) (srfi 113))
(import (srfi 113))
(export
set set-contains? set-unfold
;; Predicates:
set? set-empty? set-disjoint?
;; Accessors:
set-member set-element-comparator
;; Updaters:
set-adjoin set-adjoin! set-replace set-replace!
set-delete set-delete! set-delete-all set-delete-all!
set-search!
;; The whole set:
set-size set-find set-count set-any? set-every?
;; Mapping and folding:
set-map set-for-each set-fold set-filter set-filter!
set-remove set-remove! set-partition set-partition!
;; Copying and conversion:
set-copy set->list list->set list->set!
;; Subsets:
set=? set<? set>? set<=? set>=?
;; Set theory operations:
set-union set-intersection set-difference set-xor
set-union! set-intersection! set-difference! set-xor!
;; Comparators:
set-comparator
;; Constructors:
bag bag-contains? bag-unfold
;; Predicates:
bag? bag-empty? bag-disjoint?
;; Accessors:
bag-member bag-element-comparator
;; Updaters:
bag-adjoin bag-adjoin! bag-replace bag-replace!
bag-delete bag-delete! bag-delete-all bag-delete-all!
bag-search!
;; The whole bag:
bag-size bag-find bag-count bag-any? bag-every?
;; Mapping and folding:
bag-map bag-for-each bag-fold bag-filter bag-filter!
bag-remove bag-remove! bag-partition bag-partition!
;; Copying and conversion:
bag-copy bag->list list->bag list->bag!
;; Subbags:
bag=? bag<? bag>? bag<=? bag>=?
;; Bag theory operations:
bag-union bag-intersection bag-difference bag-xor
bag-union! bag-intersection! bag-difference! bag-xor!
;; Comparators:
bag-comparator
;; Additional bag procedures:
bag-unique-size
bag-sum bag-sum! bag-product bag-product! bag-element-count
bag-for-each-unique bag-fold-unique bag-increment! bag-decrement!
bag->set set->bag set->bag!
bag->alist alist->bag
))

25
lib/scheme/show.sld
View file

@ -1,25 +1,2 @@
(define-library (scheme show) (define-library-alias (scheme show) (srfi 166))
(import (srfi 159))
(export
;; base
show fn forked with with! each each-in-list call-with-output
displayed written written-simply pretty pretty-simply
numeric numeric/comma numeric/si numeric/fitted
nothing nl fl space-to tab-to escaped maybe-escaped
padded padded/right padded/both
trimmed trimmed/right trimmed/both trimmed/lazy
fitted fitted/right fitted/both
joined joined/prefix joined/suffix joined/last joined/dot joined/range
;; columnar
call-with-output-generator call-with-output-generators
string->line-generator
tabular columnar show-columns wrapped wrapped/list wrapped/char
justified line-numbers from-file
;; unicode
as-unicode unicode-terminal-width
;; color
as-red as-blue as-green as-cyan as-yellow
as-magenta as-white as-black
as-bold as-underline
))

19
lib/scheme/sort.sld
View file

@ -1,19 +1,2 @@
(define-library (scheme sort) (define-library-alias (scheme sort) (srfi 132))
(import (srfi 132))
(export
list-sorted? vector-sorted?
list-sort list-stable-sort
list-sort! list-stable-sort!
vector-sort vector-stable-sort
vector-sort! vector-stable-sort!
list-merge list-merge!
vector-merge vector-merge!
list-delete-neighbor-dups
list-delete-neighbor-dups!
vector-delete-neighbor-dups
vector-delete-neighbor-dups!
vector-find-median
vector-find-median!
vector-select!
vector-separate!))

12
lib/scheme/stream.sld
View file

@ -1,12 +1,2 @@
(define-library (scheme stream) (define-library-alias (scheme stream) (srfi 41))
(import (srfi 41))
(export
stream-null stream-cons stream? stream-null? stream-pair?
stream-car stream-cdr stream-lambda
define-stream list->stream port->stream stream stream->list
stream-append stream-concat stream-constant stream-drop
stream-drop-while stream-filter stream-fold stream-for-each stream-from
stream-iterate stream-length stream-let stream-map stream-match _
stream-of stream-range stream-ref stream-reverse stream-scan stream-take
stream-take-while stream-unfold stream-unfolds stream-zip))

59
lib/scheme/text.sld
View file

@ -1,59 +1,2 @@
(define-library (scheme text) (define-library-alias (scheme text) (srfi 135))
(import (srfi 135))
(export
;; Predicates
text? textual?
textual-null?
textual-every textual-any
;; Constructors
make-text text
text-tabulate
text-unfold text-unfold-right
;; Conversion
textual->text
textual->string textual->vector textual->list
string->text vector->text list->text reverse-list->text
textual->utf8 textual->utf16be
textual->utf16 textual->utf16le
utf8->text utf16be->text
utf16->text utf16le->text
;; Selection
text-length textual-length
text-ref textual-ref
subtext subtextual
textual-copy
textual-take textual-take-right
textual-drop textual-drop-right
textual-pad textual-pad-right
textual-trim textual-trim-right textual-trim-both
;; Replacement
textual-replace
;; Comparison
textual=? textual-ci=?
textual<? textual-ci<?
textual>? textual-ci>?
textual<=? textual-ci<=?
textual>=? textual-ci>=?
;; Prefixes & suffixes
textual-prefix-length textual-suffix-length
textual-prefix? textual-suffix?
;; Searching
textual-index textual-index-right
textual-skip textual-skip-right
textual-contains textual-contains-right
;; Case conversion
textual-upcase textual-downcase
textual-foldcase textual-titlecase
;; Concatenation
textual-append textual-concatenate textual-concatenate-reverse
textual-join
;; Fold & map & friends
textual-fold textual-fold-right
textual-map textual-for-each
textual-map-index textual-for-each-index
textual-count
textual-filter textual-remove
;; Replication & splitting
textual-replicate textual-split
))

36
lib/scheme/vector.sld
View file

@ -1,36 +1,2 @@
(define-library (scheme vector) (define-library-alias (scheme vector) (srfi 133))
(import (srfi 133))
(export
;; Constructors
make-vector vector
vector-unfold vector-unfold-right
vector-copy vector-reverse-copy
vector-append vector-concatenate vector-append-subvectors
;; Predicates
vector?
vector-empty?
vector=
;; Selectors
vector-ref
vector-length
;; Iteration
vector-fold vector-fold-right
vector-map vector-map!
vector-for-each vector-count
vector-cumulate
;; Searching
vector-index vector-index-right
vector-skip vector-skip-right
vector-binary-search
vector-any vector-every
vector-partition
;; Mutators
vector-set! vector-swap!
vector-fill! vector-reverse!
vector-copy! vector-reverse-copy!
vector-unfold! vector-unfold-right!
;; Conversion
vector->list reverse-vector->list
list->vector reverse-list->vector
vector->string string->vector))

56
lib/scheme/vector/base.sld
View file

@ -1,56 +1,2 @@
(define-library (scheme vector base) (define-library-alias (scheme vector base) (srfi 160 base))
(import (srfi 160 base))
(export
;;
make-u1vector u1vector u1? u1vector?
u1vector-ref u1vector-set! u1vector-length
u1vector->list list->u1vector
;;
make-u8vector u8vector u8? u8vector?
u8vector-ref u8vector-set! u8vector-length
u8vector->list list->u8vector
;;
make-s8vector s8vector s8? s8vector?
s8vector-ref s8vector-set! s8vector-length
s8vector->list list->s8vector
;;
make-u16vector u16vector u16? u16vector?
u16vector-ref u16vector-set! u16vector-length
u16vector->list list->u16vector
;;
make-s16vector s16vector s16? s16vector?
s16vector-ref s16vector-set! s16vector-length
s16vector->list list->s16vector
;;
make-u32vector u32vector u32? u32vector?
u32vector-ref u32vector-set! u32vector-length
u32vector->list list->u32vector
;;
make-s32vector s32vector s32? s32vector?
s32vector-ref s32vector-set! s32vector-length
s32vector->list list->s32vector
;;
make-u64vector u64vector u64? u64vector?
u64vector-ref u64vector-set! u64vector-length
u64vector->list list->u64vector
;;
make-s64vector s64vector s64? s64vector?
s64vector-ref s64vector-set! s64vector-length
s64vector->list list->s64vector
;;
make-f32vector f32vector f32? f32vector?
f32vector-ref f32vector-set! f32vector-length
f32vector->list list->f32vector
;;
make-f64vector f64vector f64? f64vector?
f64vector-ref f64vector-set! f64vector-length
f64vector->list list->f64vector
;;
make-c64vector c64vector c64? c64vector?
c64vector-ref c64vector-set! c64vector-length
c64vector->list list->c64vector
;;
make-c128vector c128vector c128? c128vector?
c128vector-ref c128vector-set! c128vector-length
c128vector->list list->c128vector))

59
lib/scheme/vector/c128.sld
View file

@ -1,59 +1,2 @@
(define-library (scheme vector c128) (define-library-alias (scheme vector c128) (srfi 160 c128))
(import (srfi 160 c128))
(export
make-c128vector
c128?
c128vector?
c128vector-ref
c128vector-set!
c128vector-length
c128vector
c128vector-unfold
c128vector-unfold-right
c128vector-copy
c128vector-reverse-copy
c128vector-append
c128vector-concatenate
c128vector-append-subvectors
c128vector-empty?
c128vector=
c128vector-take
c128vector-take-right
c128vector-drop
c128vector-drop-right
c128vector-segment
c128vector-fold
c128vector-fold-right
c128vector-map
c128vector-map!
c128vector-for-each
c128vector-count
c128vector-cumulate
c128vector-take-while
c128vector-take-while-right
c128vector-drop-while
c128vector-drop-while-right
c128vector-index
c128vector-index-right
c128vector-skip
c128vector-skip-right
c128vector-binary-search
c128vector-any
c128vector-every
c128vector-partition
c128vector-filter
c128vector-remove
c128vector-swap!
c128vector-fill!
c128vector-reverse!
c128vector-copy!
c128vector-reverse-copy!
c128vector->list
reverse-c128vector->list
list->c128vector
reverse-list->c128vector
c128vector->vector
vector->c128vector
make-c128vector-generator
write-c128vector))

59
lib/scheme/vector/c64.sld
View file

@ -1,59 +1,2 @@
(define-library (scheme vector c64) (define-library-alias (scheme vector c64) (srfi 160 c64))
(import (srfi 160 c64))
(export
make-c64vector
c64?
c64vector?
c64vector-ref
c64vector-set!
c64vector-length
c64vector
c64vector-unfold
c64vector-unfold-right
c64vector-copy
c64vector-reverse-copy
c64vector-append
c64vector-concatenate
c64vector-append-subvectors
c64vector-empty?
c64vector=
c64vector-take
c64vector-take-right
c64vector-drop
c64vector-drop-right
c64vector-segment
c64vector-fold
c64vector-fold-right
c64vector-map
c64vector-map!
c64vector-for-each
c64vector-count
c64vector-cumulate
c64vector-take-while
c64vector-take-while-right
c64vector-drop-while
c64vector-drop-while-right
c64vector-index
c64vector-index-right
c64vector-skip
c64vector-skip-right
c64vector-binary-search
c64vector-any
c64vector-every
c64vector-partition
c64vector-filter
c64vector-remove
c64vector-swap!
c64vector-fill!
c64vector-reverse!
c64vector-copy!
c64vector-reverse-copy!
c64vector->list
reverse-c64vector->list
list->c64vector
reverse-list->c64vector
c64vector->vector
vector->c64vector
make-c64vector-generator
write-c64vector))

59
lib/scheme/vector/f32.sld
View file

@ -1,59 +1,2 @@
(define-library (scheme vector f32) (define-library-alias (scheme vector f32) (srfi 160 f32))
(import (srfi 160 f32))
(export
make-f32vector
f32?
f32vector?
f32vector-ref
f32vector-set!
f32vector-length
f32vector
f32vector-unfold
f32vector-unfold-right
f32vector-copy
f32vector-reverse-copy
f32vector-append
f32vector-concatenate
f32vector-append-subvectors
f32vector-empty?
f32vector=
f32vector-take
f32vector-take-right
f32vector-drop
f32vector-drop-right
f32vector-segment
f32vector-fold
f32vector-fold-right
f32vector-map
f32vector-map!
f32vector-for-each
f32vector-count
f32vector-cumulate
f32vector-take-while
f32vector-take-while-right
f32vector-drop-while
f32vector-drop-while-right
f32vector-index
f32vector-index-right
f32vector-skip
f32vector-skip-right
f32vector-binary-search
f32vector-any
f32vector-every
f32vector-partition
f32vector-filter
f32vector-remove
f32vector-swap!
f32vector-fill!
f32vector-reverse!
f32vector-copy!
f32vector-reverse-copy!
f32vector->list
reverse-f32vector->list
list->f32vector
reverse-list->f32vector
f32vector->vector
vector->f32vector
make-f32vector-generator
write-f32vector))

59
lib/scheme/vector/f64.sld
View file

@ -1,59 +1,2 @@
(define-library (scheme vector f64) (define-library-alias (scheme vector f64) (srfi 160 f64))
(import (srfi 160 f64))
(export
make-f64vector
f64?
f64vector?
f64vector-ref
f64vector-set!
f64vector-length
f64vector
f64vector-unfold
f64vector-unfold-right
f64vector-copy
f64vector-reverse-copy
f64vector-append
f64vector-concatenate
f64vector-append-subvectors
f64vector-empty?
f64vector=
f64vector-take
f64vector-take-right
f64vector-drop
f64vector-drop-right
f64vector-segment
f64vector-fold
f64vector-fold-right
f64vector-map
f64vector-map!
f64vector-for-each
f64vector-count
f64vector-cumulate
f64vector-take-while
f64vector-take-while-right
f64vector-drop-while
f64vector-drop-while-right
f64vector-index
f64vector-index-right
f64vector-skip
f64vector-skip-right
f64vector-binary-search
f64vector-any
f64vector-every
f64vector-partition
f64vector-filter
f64vector-remove
f64vector-swap!
f64vector-fill!
f64vector-reverse!
f64vector-copy!
f64vector-reverse-copy!
f64vector->list
reverse-f64vector->list
list->f64vector
reverse-list->f64vector
f64vector->vector
vector->f64vector
make-f64vector-generator
write-f64vector))

60
lib/scheme/vector/s16.sld
View file

@ -1,60 +1,2 @@
(define-library (scheme vector s16) (define-library-alias (scheme vector s16) (srfi 160 s16))
(import (srfi 160 s16))
(export
make-s16vector
s16?
s16vector?
s16vector-ref
s16vector-set!
s16vector-length
s16vector
s16vector-unfold
s16vector-unfold-right
s16vector-copy
s16vector-reverse-copy
s16vector-append
s16vector-concatenate
s16vector-append-subvectors
s16vector-empty?
s16vector=
s16vector-take
s16vector-take-right
s16vector-drop
s16vector-drop-right
s16vector-segment
s16vector-fold
s16vector-fold-right
s16vector-map
s16vector-map!
s16vector-for-each
s16vector-count
s16vector-cumulate
s16vector-take-while
s16vector-take-while-right
s16vector-drop-while
s16vector-drop-while-right
s16vector-index
s16vector-index-right
s16vector-skip
s16vector-skip-right
s16vector-binary-search
s16vector-any
s16vector-every
s16vector-partition
s16vector-filter
s16vector-remove
s16vector-swap!
s16vector-fill!
s16vector-reverse!
s16vector-copy!
s16vector-reverse-copy!
s16vector->list
reverse-s16vector->list
list->s16vector
reverse-list->s16vector
s16vector->vector
vector->s16vector
make-s16vector-generator
write-s16vector))

59
lib/scheme/vector/s32.sld
View file

@ -1,59 +1,2 @@
(define-library (scheme vector s32) (define-library-alias (scheme vector s32) (srfi 160 s32))
(import (srfi 160 s32))
(export
make-s32vector
s32?
s32vector?
s32vector-ref
s32vector-set!
s32vector-length
s32vector
s32vector-unfold
s32vector-unfold-right
s32vector-copy
s32vector-reverse-copy
s32vector-append
s32vector-concatenate
s32vector-append-subvectors
s32vector-empty?
s32vector=
s32vector-take
s32vector-take-right
s32vector-drop
s32vector-drop-right
s32vector-segment
s32vector-fold
s32vector-fold-right
s32vector-map
s32vector-map!
s32vector-for-each
s32vector-count
s32vector-cumulate
s32vector-take-while
s32vector-take-while-right
s32vector-drop-while
s32vector-drop-while-right
s32vector-index
s32vector-index-right
s32vector-skip
s32vector-skip-right
s32vector-binary-search
s32vector-any
s32vector-every
s32vector-partition
s32vector-filter
s32vector-remove
s32vector-swap!
s32vector-fill!
s32vector-reverse!
s32vector-copy!
s32vector-reverse-copy!
s32vector->list
reverse-s32vector->list
list->s32vector
reverse-list->s32vector
s32vector->vector
vector->s32vector
make-s32vector-generator
write-s32vector))

59
lib/scheme/vector/s64.sld
View file

@ -1,59 +1,2 @@
(define-library (scheme vector s64) (define-library-alias (scheme vector s64) (srfi 160 s64))
(import (srfi 160 s64))
(export
make-s64vector
s64?
s64vector?
s64vector-ref
s64vector-set!
s64vector-length
s64vector
s64vector-unfold
s64vector-unfold-right
s64vector-copy
s64vector-reverse-copy
s64vector-append
s64vector-concatenate
s64vector-append-subvectors
s64vector-empty?
s64vector=
s64vector-take
s64vector-take-right
s64vector-drop
s64vector-drop-right
s64vector-segment
s64vector-fold
s64vector-fold-right
s64vector-map
s64vector-map!
s64vector-for-each
s64vector-count
s64vector-cumulate
s64vector-take-while
s64vector-take-while-right
s64vector-drop-while
s64vector-drop-while-right
s64vector-index
s64vector-index-right
s64vector-skip
s64vector-skip-right
s64vector-binary-search
s64vector-any
s64vector-every
s64vector-partition
s64vector-filter
s64vector-remove
s64vector-swap!
s64vector-fill!
s64vector-reverse!
s64vector-copy!
s64vector-reverse-copy!
s64vector->list
reverse-s64vector->list
list->s64vector
reverse-list->s64vector
s64vector->vector
vector->s64vector
make-s64vector-generator
write-s64vector))

59
lib/scheme/vector/s8.sld
View file

@ -1,59 +1,2 @@
(define-library (scheme vector s8) (define-library-alias (scheme vector s8) (srfi 160 s8))
(import (srfi 160 s8))
(export
make-s8vector
s8?
s8vector?
s8vector-ref
s8vector-set!
s8vector-length
s8vector
s8vector-unfold
s8vector-unfold-right
s8vector-copy
s8vector-reverse-copy
s8vector-append
s8vector-concatenate
s8vector-append-subvectors
s8vector-empty?
s8vector=
s8vector-take
s8vector-take-right
s8vector-drop
s8vector-drop-right
s8vector-segment
s8vector-fold
s8vector-fold-right
s8vector-map
s8vector-map!
s8vector-for-each
s8vector-count
s8vector-cumulate
s8vector-take-while
s8vector-take-while-right
s8vector-drop-while
s8vector-drop-while-right
s8vector-index
s8vector-index-right
s8vector-skip
s8vector-skip-right
s8vector-binary-search
s8vector-any
s8vector-every
s8vector-partition
s8vector-filter
s8vector-remove
s8vector-swap!
s8vector-fill!
s8vector-reverse!
s8vector-copy!
s8vector-reverse-copy!
s8vector->list
reverse-s8vector->list
list->s8vector
reverse-list->s8vector
s8vector->vector
vector->s8vector
make-s8vector-generator
write-s8vector))

59
lib/scheme/vector/u16.sld
View file

@ -1,59 +1,2 @@
(define-library (scheme vector u16) (define-library-alias (scheme vector u16) (srfi 160 u16))
(import (srfi 160 u16))
(export
make-u16vector
u16?
u16vector?
u16vector-ref
u16vector-set!
u16vector-length
u16vector
u16vector-unfold
u16vector-unfold-right
u16vector-copy
u16vector-reverse-copy
u16vector-append
u16vector-concatenate
u16vector-append-subvectors
u16vector-empty?
u16vector=
u16vector-take
u16vector-take-right
u16vector-drop
u16vector-drop-right
u16vector-segment
u16vector-fold
u16vector-fold-right
u16vector-map
u16vector-map!
u16vector-for-each
u16vector-count
u16vector-cumulate
u16vector-take-while
u16vector-take-while-right
u16vector-drop-while
u16vector-drop-while-right
u16vector-index
u16vector-index-right
u16vector-skip
u16vector-skip-right
u16vector-binary-search
u16vector-any
u16vector-every
u16vector-partition
u16vector-filter
u16vector-remove
u16vector-swap!
u16vector-fill!
u16vector-reverse!
u16vector-copy!
u16vector-reverse-copy!
u16vector->list
reverse-u16vector->list
list->u16vector
reverse-list->u16vector
u16vector->vector
vector->u16vector
make-u16vector-generator
write-u16vector))

59
lib/scheme/vector/u32.sld
View file

@ -1,59 +1,2 @@
(define-library (scheme vector u32) (define-library-alias (scheme vector u32) (srfi 160 u32))
(import (srfi 160 u32))
(export
make-u32vector
u32?
u32vector?
u32vector-ref
u32vector-set!
u32vector-length
u32vector
u32vector-unfold
u32vector-unfold-right
u32vector-copy
u32vector-reverse-copy
u32vector-append
u32vector-concatenate
u32vector-append-subvectors
u32vector-empty?
u32vector=
u32vector-take
u32vector-take-right
u32vector-drop
u32vector-drop-right
u32vector-segment
u32vector-fold
u32vector-fold-right
u32vector-map
u32vector-map!
u32vector-for-each
u32vector-count
u32vector-cumulate
u32vector-take-while
u32vector-take-while-right
u32vector-drop-while
u32vector-drop-while-right
u32vector-index
u32vector-index-right
u32vector-skip
u32vector-skip-right
u32vector-binary-search
u32vector-any
u32vector-every
u32vector-partition
u32vector-filter
u32vector-remove
u32vector-swap!
u32vector-fill!
u32vector-reverse!
u32vector-copy!
u32vector-reverse-copy!
u32vector->list
reverse-u32vector->list
list->u32vector
reverse-list->u32vector
u32vector->vector
vector->u32vector
make-u32vector-generator
write-u32vector))

59
lib/scheme/vector/u64.sld
View file

@ -1,59 +1,2 @@
(define-library (scheme vector u64) (define-library-alias (scheme vector u64) (srfi 160 u64))
(import (srfi 160 u64))
(export
make-u64vector
u64?
u64vector?
u64vector-ref
u64vector-set!
u64vector-length
u64vector
u64vector-unfold
u64vector-unfold-right
u64vector-copy
u64vector-reverse-copy
u64vector-append
u64vector-concatenate
u64vector-append-subvectors
u64vector-empty?
u64vector=
u64vector-take
u64vector-take-right
u64vector-drop
u64vector-drop-right
u64vector-segment
u64vector-fold
u64vector-fold-right
u64vector-map
u64vector-map!
u64vector-for-each
u64vector-count
u64vector-cumulate
u64vector-take-while
u64vector-take-while-right
u64vector-drop-while
u64vector-drop-while-right
u64vector-index
u64vector-index-right
u64vector-skip
u64vector-skip-right
u64vector-binary-search
u64vector-any
u64vector-every
u64vector-partition
u64vector-filter
u64vector-remove
u64vector-swap!
u64vector-fill!
u64vector-reverse!
u64vector-copy!
u64vector-reverse-copy!
u64vector->list
reverse-u64vector->list
list->u64vector
reverse-list->u64vector
u64vector->vector
vector->u64vector
make-u64vector-generator
write-u64vector))

59
lib/scheme/vector/u8.sld
View file

@ -1,59 +1,2 @@
(define-library (scheme vector u8) (define-library-alias (scheme vector u8) (srfi 160 u8))
(import (srfi 160 u8))
(export
make-u8vector
u8?
u8vector?
u8vector-ref
u8vector-set!
u8vector-length
u8vector
u8vector-unfold
u8vector-unfold-right
u8vector-copy
u8vector-reverse-copy
u8vector-append
u8vector-concatenate
u8vector-append-subvectors
u8vector-empty?
u8vector=
u8vector-take
u8vector-take-right
u8vector-drop
u8vector-drop-right
u8vector-segment
u8vector-fold
u8vector-fold-right
u8vector-map
u8vector-map!
u8vector-for-each
u8vector-count
u8vector-cumulate
u8vector-take-while
u8vector-take-while-right
u8vector-drop-while
u8vector-drop-while-right
u8vector-index
u8vector-index-right
u8vector-skip
u8vector-skip-right
u8vector-binary-search
u8vector-any
u8vector-every
u8vector-partition
u8vector-filter
u8vector-remove
u8vector-swap!
u8vector-fill!
u8vector-reverse!
u8vector-copy!
u8vector-reverse-copy!
u8vector->list
reverse-u8vector->list
list->u8vector
reverse-list->u8vector
u8vector->vector
vector->u8vector
make-u8vector-generator
write-u8vector))