diff --git a/lib/meta-7.scm b/lib/meta-7.scm index 9050861e..ee721c8f 100644 --- a/lib/meta-7.scm +++ b/lib/meta-7.scm @@ -312,6 +312,18 @@ (define-syntax define-library 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 (er-macro-transformer (lambda (expr rename compare) diff --git a/lib/scheme/bitwise.sld b/lib/scheme/bitwise.sld index 9e672ff1..991a787c 100644 --- a/lib/scheme/bitwise.sld +++ b/lib/scheme/bitwise.sld @@ -1,22 +1,2 @@ -(define-library (scheme bitwise) - (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)) +(define-library-alias (scheme bitwise) (srfi 151)) diff --git a/lib/scheme/box.sld b/lib/scheme/box.sld index 75807284..b2c45521 100644 --- a/lib/scheme/box.sld +++ b/lib/scheme/box.sld @@ -1,4 +1,2 @@ -(define-library (scheme box) - (import (srfi 111)) - (export box box? unbox set-box!)) +(define-library-alias (scheme box) (srfi 111)) diff --git a/lib/scheme/case-lambda.sld b/lib/scheme/case-lambda.sld index d102db87..fea78d31 100644 --- a/lib/scheme/case-lambda.sld +++ b/lib/scheme/case-lambda.sld @@ -1,4 +1,2 @@ -(define-library (scheme case-lambda) - (import (srfi 16)) - (export case-lambda)) +(define-library-alias (scheme case-lambda) (srfi 16)) diff --git a/lib/scheme/charset.sld b/lib/scheme/charset.sld index c2df5f0f..1a7f892d 100644 --- a/lib/scheme/charset.sld +++ b/lib/scheme/charset.sld @@ -1,37 +1,2 @@ -(define-library (scheme charset) - (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)) +(define-library-alias (scheme charset) (srfi 14)) diff --git a/lib/scheme/comparator.sld b/lib/scheme/comparator.sld index f448e148..f6412f46 100644 --- a/lib/scheme/comparator.sld +++ b/lib/scheme/comparator.sld @@ -1,25 +1,2 @@ -(define-library (scheme comparator) - (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<=>)) +(define-library-alias (scheme comparator) (srfi 128)) diff --git a/lib/scheme/ephemeron.sld b/lib/scheme/ephemeron.sld index 08acbfb2..49b1d29e 100644 --- a/lib/scheme/ephemeron.sld +++ b/lib/scheme/ephemeron.sld @@ -1,5 +1,2 @@ -(define-library (scheme ephemeron) - (import (srfi 124)) - (export make-ephemeron ephemeron? ephemeron-broken? - ephemeron-key ephemeron-datum)) +(define-library-alias (scheme ephemeron) (srfi 124)) diff --git a/lib/scheme/flonum.sld b/lib/scheme/flonum.sld index fc976970..07559774 100644 --- a/lib/scheme/flonum.sld +++ b/lib/scheme/flonum.sld @@ -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? - 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)) +(define-library-alias (scheme flonum) (srfi 144)) diff --git a/lib/scheme/generator.sld b/lib/scheme/generator.sld index b6c097ba..7e69aca2 100644 --- a/lib/scheme/generator.sld +++ b/lib/scheme/generator.sld @@ -1,39 +1,2 @@ -(define-library (scheme generator) - (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)) +(define-library-alias (scheme generator) (srfi 121)) diff --git a/lib/scheme/hash-table.sld b/lib/scheme/hash-table.sld index dabffdf9..006f73c1 100644 --- a/lib/scheme/hash-table.sld +++ b/lib/scheme/hash-table.sld @@ -1,29 +1,2 @@ -(define-library (scheme hash-table) - (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)) +(define-library-alias (scheme hash-table) (srfi 125)) diff --git a/lib/scheme/ideque.sld b/lib/scheme/ideque.sld index b164c1cf..3ffe8bc2 100644 --- a/lib/scheme/ideque.sld +++ b/lib/scheme/ideque.sld @@ -1,31 +1,2 @@ -(define-library (scheme ideque) - (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 - )) +(define-library-alias (scheme ideque) (srfi 134)) diff --git a/lib/scheme/ilist.sld b/lib/scheme/ilist.sld index 9612b558..b218c6ac 100644 --- a/lib/scheme/ilist.sld +++ b/lib/scheme/ilist.sld @@ -1,79 +1,2 @@ -(define-library (scheme ilist) - (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)) +(define-library-alias (scheme ilist) (srfi 116)) diff --git a/lib/scheme/list-queue.sld b/lib/scheme/list-queue.sld index cde723cc..121ee12f 100644 --- a/lib/scheme/list-queue.sld +++ b/lib/scheme/list-queue.sld @@ -1,11 +1,2 @@ -(define-library (scheme list-queue) - (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)) +(define-library-alias (scheme list-queue) (srfi 117)) diff --git a/lib/scheme/list.sld b/lib/scheme/list.sld index 96cf245f..a7798c18 100644 --- a/lib/scheme/list.sld +++ b/lib/scheme/list.sld @@ -1,21 +1,2 @@ -(define-library (scheme list) - (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!)) +(define-library-alias (scheme list) (srfi 1)) diff --git a/lib/scheme/lseq.sld b/lib/scheme/lseq.sld index dd3e5641..9796e925 100644 --- a/lib/scheme/lseq.sld +++ b/lib/scheme/lseq.sld @@ -1,25 +1,2 @@ -(define-library (scheme lseq) - (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)) +(define-library-alias (scheme lseq) (srfi 127)) diff --git a/lib/scheme/mapping.sld b/lib/scheme/mapping.sld index 79962de1..f01aa989 100644 --- a/lib/scheme/mapping.sld +++ b/lib/scheme/mapping.sld @@ -1,38 +1,2 @@ -(define-library (scheme mapping) - (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-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-split - mapping-catenate mapping-catenate! - mapping-map/monotone mapping-map/monotone! - mapping-fold/reverse - comparator?)) +(define-library-alias (scheme mapping) (srfi 146)) diff --git a/lib/scheme/regex.sld b/lib/scheme/regex.sld index 02612d7f..c34c927e 100644 --- a/lib/scheme/regex.sld +++ b/lib/scheme/regex.sld @@ -1,9 +1,2 @@ -(define-library (scheme regex) - (import (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)) + +(define-library-alias (scheme regex) (srfi 115)) diff --git a/lib/scheme/set.sld b/lib/scheme/set.sld index 159b76f1..1045fed9 100644 --- a/lib/scheme/set.sld +++ b/lib/scheme/set.sld @@ -1,60 +1,2 @@ -(define-library (scheme set) - (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 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 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 - )) +(define-library-alias (scheme set) (srfi 113)) diff --git a/lib/scheme/show.sld b/lib/scheme/show.sld index 96be5e31..d20f8c38 100644 --- a/lib/scheme/show.sld +++ b/lib/scheme/show.sld @@ -1,25 +1,2 @@ -(define-library (scheme show) - (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 - )) +(define-library-alias (scheme show) (srfi 166)) diff --git a/lib/scheme/sort.sld b/lib/scheme/sort.sld index 3758431e..48375b3c 100644 --- a/lib/scheme/sort.sld +++ b/lib/scheme/sort.sld @@ -1,19 +1,2 @@ -(define-library (scheme sort) - (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!)) +(define-library-alias (scheme sort) (srfi 132)) diff --git a/lib/scheme/stream.sld b/lib/scheme/stream.sld index 95531d80..8ab82226 100644 --- a/lib/scheme/stream.sld +++ b/lib/scheme/stream.sld @@ -1,12 +1,2 @@ -(define-library (scheme stream) - (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)) +(define-library-alias (scheme stream) (srfi 41)) diff --git a/lib/scheme/text.sld b/lib/scheme/text.sld index 8d3a9f65..dde526ba 100644 --- a/lib/scheme/text.sld +++ b/lib/scheme/text.sld @@ -1,59 +1,2 @@ -(define-library (scheme text) - (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>=? - ;; 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 - )) +(define-library-alias (scheme text) (srfi 135)) diff --git a/lib/scheme/vector.sld b/lib/scheme/vector.sld index 8a38851b..71a2fbc0 100644 --- a/lib/scheme/vector.sld +++ b/lib/scheme/vector.sld @@ -1,36 +1,2 @@ -(define-library (scheme vector) - (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)) +(define-library-alias (scheme vector) (srfi 133)) diff --git a/lib/scheme/vector/base.sld b/lib/scheme/vector/base.sld index c10bee8b..6870f299 100644 --- a/lib/scheme/vector/base.sld +++ b/lib/scheme/vector/base.sld @@ -1,56 +1,2 @@ -(define-library (scheme vector 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)) +(define-library-alias (scheme vector base) (srfi 160 base)) diff --git a/lib/scheme/vector/c128.sld b/lib/scheme/vector/c128.sld index 4bf6febb..2ed1f905 100644 --- a/lib/scheme/vector/c128.sld +++ b/lib/scheme/vector/c128.sld @@ -1,59 +1,2 @@ -(define-library (scheme vector 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)) +(define-library-alias (scheme vector c128) (srfi 160 c128)) diff --git a/lib/scheme/vector/c64.sld b/lib/scheme/vector/c64.sld index e939fa7f..ba2fd7af 100644 --- a/lib/scheme/vector/c64.sld +++ b/lib/scheme/vector/c64.sld @@ -1,59 +1,2 @@ -(define-library (scheme vector 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)) +(define-library-alias (scheme vector c64) (srfi 160 c64)) diff --git a/lib/scheme/vector/f32.sld b/lib/scheme/vector/f32.sld index 48667715..e8943991 100644 --- a/lib/scheme/vector/f32.sld +++ b/lib/scheme/vector/f32.sld @@ -1,59 +1,2 @@ -(define-library (scheme vector 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)) +(define-library-alias (scheme vector f32) (srfi 160 f32)) diff --git a/lib/scheme/vector/f64.sld b/lib/scheme/vector/f64.sld index a42ad149..439fee13 100644 --- a/lib/scheme/vector/f64.sld +++ b/lib/scheme/vector/f64.sld @@ -1,59 +1,2 @@ -(define-library (scheme vector 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)) +(define-library-alias (scheme vector f64) (srfi 160 f64)) diff --git a/lib/scheme/vector/s16.sld b/lib/scheme/vector/s16.sld index f2fd293f..dcc8edfa 100644 --- a/lib/scheme/vector/s16.sld +++ b/lib/scheme/vector/s16.sld @@ -1,60 +1,2 @@ -(define-library (scheme vector 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)) - +(define-library-alias (scheme vector s16) (srfi 160 s16)) diff --git a/lib/scheme/vector/s32.sld b/lib/scheme/vector/s32.sld index 397d209e..f70f85e8 100644 --- a/lib/scheme/vector/s32.sld +++ b/lib/scheme/vector/s32.sld @@ -1,59 +1,2 @@ -(define-library (scheme vector 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)) +(define-library-alias (scheme vector s32) (srfi 160 s32)) diff --git a/lib/scheme/vector/s64.sld b/lib/scheme/vector/s64.sld index beed5cdf..240160f4 100644 --- a/lib/scheme/vector/s64.sld +++ b/lib/scheme/vector/s64.sld @@ -1,59 +1,2 @@ -(define-library (scheme vector 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)) +(define-library-alias (scheme vector s64) (srfi 160 s64)) diff --git a/lib/scheme/vector/s8.sld b/lib/scheme/vector/s8.sld index e6783eb4..708c50e5 100644 --- a/lib/scheme/vector/s8.sld +++ b/lib/scheme/vector/s8.sld @@ -1,59 +1,2 @@ -(define-library (scheme vector 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)) +(define-library-alias (scheme vector s8) (srfi 160 s8)) diff --git a/lib/scheme/vector/u16.sld b/lib/scheme/vector/u16.sld index 41f2e5b5..c4e54ad5 100644 --- a/lib/scheme/vector/u16.sld +++ b/lib/scheme/vector/u16.sld @@ -1,59 +1,2 @@ -(define-library (scheme vector 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)) +(define-library-alias (scheme vector u16) (srfi 160 u16)) diff --git a/lib/scheme/vector/u32.sld b/lib/scheme/vector/u32.sld index 6fcd36db..c1ef31f6 100644 --- a/lib/scheme/vector/u32.sld +++ b/lib/scheme/vector/u32.sld @@ -1,59 +1,2 @@ -(define-library (scheme vector 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)) +(define-library-alias (scheme vector u32) (srfi 160 u32)) diff --git a/lib/scheme/vector/u64.sld b/lib/scheme/vector/u64.sld index 19ac81b9..0561a764 100644 --- a/lib/scheme/vector/u64.sld +++ b/lib/scheme/vector/u64.sld @@ -1,59 +1,2 @@ -(define-library (scheme vector 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)) +(define-library-alias (scheme vector u64) (srfi 160 u64)) diff --git a/lib/scheme/vector/u8.sld b/lib/scheme/vector/u8.sld index 7a15c964..03e73041 100644 --- a/lib/scheme/vector/u8.sld +++ b/lib/scheme/vector/u8.sld @@ -1,59 +1,2 @@ -(define-library (scheme vector 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)) +(define-library-alias (scheme vector u8) (srfi 160 u8))