diff --git a/s48/continuation-data-type/AUTHORS b/s48/continuation-data-type/AUTHORS index c51381e..c8931a5 100644 --- a/s48/continuation-data-type/AUTHORS +++ b/s48/continuation-data-type/AUTHORS @@ -1 +1 @@ -Martin Gasbichler, (credit to Marc Feeley) +Copyright (c) 2003 Martin Gasbichler diff --git a/s48/continuation-data-type/NEWS b/s48/continuation-data-type/NEWS new file mode 100644 index 0000000..f2366f0 --- /dev/null +++ b/s48/continuation-data-type/NEWS @@ -0,0 +1,5 @@ +version 0.1 +* New package system. + +version 0.0 2003-02-20 +* proposed by Marc Feeley on the Scheme Workshop 2001. diff --git a/s48/continuation-data-type/interfaces.scm b/s48/continuation-data-type/load.scm similarity index 51% rename from s48/continuation-data-type/interfaces.scm rename to s48/continuation-data-type/load.scm index 72f14ac..01b9948 100644 --- a/s48/continuation-data-type/interfaces.scm +++ b/s48/continuation-data-type/load.scm @@ -2,3 +2,6 @@ (export continuation-capture continuation-graft continuation-return)) +(define-structure continuation-data-type continuation-data-type-interface + (open scheme) + (files continuation-data-type)) \ No newline at end of file diff --git a/s48/continuation-data-type/packages.scm b/s48/continuation-data-type/packages.scm deleted file mode 100644 index d6bc5a2..0000000 --- a/s48/continuation-data-type/packages.scm +++ /dev/null @@ -1,3 +0,0 @@ -(define-structure continuation-data-type continuation-data-type-interface - (open scheme) - (files continuation-data-type)) \ No newline at end of file diff --git a/s48/continuation-data-type/pkg-def.scm b/s48/continuation-data-type/pkg-def.scm new file mode 100644 index 0000000..ca28ca4 --- /dev/null +++ b/s48/continuation-data-type/pkg-def.scm @@ -0,0 +1,8 @@ +(define-package "continuation-data-type" + (0 1) + () + (install-file "load.scm" 'base) + (install-file "README" 'doc) + (install-file "NEWS" 'doc) + (install-string (COPYING) "COPYING" 'doc) + (install-file "continuation-data-type.scm" 'scheme)) diff --git a/s48/heap-images/AUTHORS b/s48/heap-images/AUTHORS index 87c8969..c8931a5 100644 --- a/s48/heap-images/AUTHORS +++ b/s48/heap-images/AUTHORS @@ -1 +1 @@ -Martin Gasbichler \ No newline at end of file +Copyright (c) 2003 Martin Gasbichler diff --git a/s48/heap-images/NEWS b/s48/heap-images/NEWS new file mode 100644 index 0000000..26f793c --- /dev/null +++ b/s48/heap-images/NEWS @@ -0,0 +1,2 @@ +version 0.0 +* New package system. diff --git a/s48/heap-images/interfaces.scm b/s48/heap-images/interfaces.scm deleted file mode 100644 index 6c71872..0000000 --- a/s48/heap-images/interfaces.scm +++ /dev/null @@ -1,4 +0,0 @@ -(define-interface reinitializers-interface - (export make-reinitializer - reinitializer?)) - \ No newline at end of file diff --git a/s48/heap-images/load.scm b/s48/heap-images/load.scm new file mode 100644 index 0000000..8186d29 --- /dev/null +++ b/s48/heap-images/load.scm @@ -0,0 +1,8 @@ +(define-interface reinitializers-interface + (export make-reinitializer + reinitializer?)) + (define-structure reinitializers reinitializers-interface + (open scheme + define-record-types + records) + (files reinitializer)) diff --git a/s48/heap-images/packages.scm b/s48/heap-images/packages.scm deleted file mode 100644 index 925d1e7..0000000 --- a/s48/heap-images/packages.scm +++ /dev/null @@ -1,5 +0,0 @@ -(define-structure reinitializers reinitializers-interface - (open scheme - define-record-types - records) - (files reinitializer)) diff --git a/s48/heap-images/pkg-def.scm b/s48/heap-images/pkg-def.scm new file mode 100644 index 0000000..c788c1e --- /dev/null +++ b/s48/heap-images/pkg-def.scm @@ -0,0 +1,8 @@ +(define-package "heap-images" + (0 0) + () + (install-file "load.scm" 'base) + (install-file "README" 'doc) + (install-file "NEWS" 'doc) + (install-string (COPYING) "COPYING" 'doc) + (install-file "reinitializer.scm" 'scheme)) diff --git a/s48/intsets/AUTHORS b/s48/intsets/AUTHORS index 100171c..1bfb893 100644 --- a/s48/intsets/AUTHORS +++ b/s48/intsets/AUTHORS @@ -1 +1 @@ -Michel Schinz +Copyright (c) 2003 Michel Schinz diff --git a/s48/intsets/NEWS b/s48/intsets/NEWS new file mode 100644 index 0000000..26f793c --- /dev/null +++ b/s48/intsets/NEWS @@ -0,0 +1,2 @@ +version 0.0 +* New package system. diff --git a/s48/intsets/interfaces.scm b/s48/intsets/load.scm similarity index 61% rename from s48/intsets/interfaces.scm rename to s48/intsets/load.scm index 5aeef50..ed67c89 100644 --- a/s48/intsets/interfaces.scm +++ b/s48/intsets/load.scm @@ -9,3 +9,8 @@ intset-delete intset-contains? intset-map)) +(define-structure intsets intsets-interface + (open scheme + srfi-23 ;error + srfi-1) ;list library + (files intsets)) diff --git a/s48/intsets/packages.scm b/s48/intsets/packages.scm deleted file mode 100644 index b827d09..0000000 --- a/s48/intsets/packages.scm +++ /dev/null @@ -1,5 +0,0 @@ -(define-structure intsets intsets-interface - (open scheme - srfi-23 ;error - srfi-1) ;list library - (files intsets)) diff --git a/s48/intsets/pkg-def.scm b/s48/intsets/pkg-def.scm new file mode 100644 index 0000000..1ab087f --- /dev/null +++ b/s48/intsets/pkg-def.scm @@ -0,0 +1,8 @@ +(define-package "intsets" + (0 0) + () + (install-file "load.scm" 'base) + (install-file "README" 'doc) + (install-file "NEWS" 'doc) + (install-string (COPYING) "COPYING" 'doc) + (install-file "intsets.scm" 'scheme)) diff --git a/s48/krims/AUTHORS b/s48/krims/AUTHORS index 32d2642..ea94477 100644 --- a/s48/krims/AUTHORS +++ b/s48/krims/AUTHORS @@ -1 +1 @@ -Rolf-Thomas Happe +Copyright (c) 2003 Rolf-Thomas Happe diff --git a/s48/krims/NEWS b/s48/krims/NEWS new file mode 100644 index 0000000..26f793c --- /dev/null +++ b/s48/krims/NEWS @@ -0,0 +1,2 @@ +version 0.0 +* New package system. diff --git a/s48/krims/interfaces.scm b/s48/krims/interfaces.scm deleted file mode 100644 index 652998c..0000000 --- a/s48/krims/interfaces.scm +++ /dev/null @@ -1,36 +0,0 @@ -;; since SRFI-1-INTERFACE isn't defined in the usual 0.6.3 image -;; definition hijacked from scsh-0.6.3/scheme/more-interfaces.scm -(define-interface srfi-1-face - (export map for-each member assoc ; redefined from R5RS - xcons make-list list-tabulate cons* list-copy - proper-list? circular-list? dotted-list? not-pair? null-list? list= - circular-list length+ - iota - 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 - zip unzip1 unzip2 unzip3 unzip4 unzip5 - count - append! append-reverse append-reverse! concatenate concatenate! - unfold fold pair-fold reduce - unfold-right fold-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! - alist-cons alist-copy - delete-duplicates delete-duplicates! - alist-delete alist-delete! - reverse! - lset<= lset= lset-adjoin - lset-union lset-intersection lset-difference lset-xor - lset-diff+intersection - lset-union! lset-intersection! lset-difference! lset-xor! - lset-diff+intersection!)) diff --git a/s48/krims/load.scm b/s48/krims/load.scm new file mode 100644 index 0000000..10a9672 --- /dev/null +++ b/s48/krims/load.scm @@ -0,0 +1,71 @@ +; Copyright (c) 2003 RT Happe +; See the file COPYING distributed with the Scheme Untergrund Library + +;; since SRFI-1-INTERFACE isn't defined in the usual 0.6.3 image +;; definition hijacked from scsh-0.6.3/scheme/more-interfaces.scm +(define-interface srfi-1-face + (export map for-each member assoc ; redefined from R5RS + xcons make-list list-tabulate cons* list-copy + proper-list? circular-list? dotted-list? not-pair? null-list? list= + circular-list length+ + iota + 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 + zip unzip1 unzip2 unzip3 unzip4 unzip5 + count + append! append-reverse append-reverse! concatenate concatenate! + unfold fold pair-fold reduce + unfold-right fold-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! + alist-cons alist-copy + delete-duplicates delete-duplicates! + alist-delete alist-delete! + reverse! + lset<= lset= lset-adjoin + lset-union lset-intersection lset-difference lset-xor + lset-diff+intersection + lset-union! lset-intersection! lset-difference! lset-xor! + lset-diff+intersection!)) + +;; odds and ends +(define-structure krims + (export (assert :syntax) + (receive/name :syntax) + (gen-dispatch :syntax)) + (open srfi-28 ; format + srfi-23 ; error + scheme) + (files krims)) + +;; srfi-1 + REST +(define-structure srfi-1+ + (compound-interface srfi-1-face + (export rest)) + (open srfi-1 scheme) + (begin (define rest cdr))) + +;; srfi-9 + define-record-discloser +;; [ extended version of the srfi-9 structure def +;; from scsh-0.6.3/scheme/more-packages.scm ] +(define-structure srfi-9+ + (export (define-record-type :syntax) + define-record-discloser) + (open scheme-level-2 + (with-prefix define-record-types sys:)) + (begin + (define-syntax define-record-type + (syntax-rules () + ((define-record-type type-name . stuff) + (sys:define-record-type type-name type-name . stuff)))) + (define define-record-discloser sys:define-record-discloser))) diff --git a/s48/krims/packages.scm b/s48/krims/packages.scm deleted file mode 100644 index 934ac5e..0000000 --- a/s48/krims/packages.scm +++ /dev/null @@ -1,37 +0,0 @@ -; Copyright (c) 2003 RT Happe -; See the file COPYING distributed with the Scheme Untergrund Library - -;; odds and ends -(define-structure krims - (export (assert :syntax) - (receive/name :syntax) - (gen-dispatch :syntax)) - (open srfi-28 ; format - srfi-23 ; error - scheme) - (files krims)) - -;; srfi-1 + REST -(define-structure srfi-1+ - (compound-interface srfi-1-face - (export rest)) - (open srfi-1 scheme) - (begin (define rest cdr))) - -;; srfi-9 + define-record-discloser -;; [ extended version of the srfi-9 structure def -;; from scsh-0.6.3/scheme/more-packages.scm ] -(define-structure srfi-9+ - (export (define-record-type :syntax) - define-record-discloser) - (open scheme-level-2 - (with-prefix define-record-types sys:)) - (begin - (define-syntax define-record-type - (syntax-rules () - ((define-record-type type-name . stuff) - (sys:define-record-type type-name type-name . stuff)))) - (define define-record-discloser sys:define-record-discloser))) - - - diff --git a/s48/krims/pkg-def.scm b/s48/krims/pkg-def.scm new file mode 100644 index 0000000..8bf18c0 --- /dev/null +++ b/s48/krims/pkg-def.scm @@ -0,0 +1,8 @@ +(define-package "krims" + (0 0) + () + (install-file "load.scm" 'base) + (install-file "README" 'doc) + (install-file "NEWS" 'doc) + (install-string (COPYING) "COPYING" 'doc) + (install-file "krims.scm" 'scheme)) diff --git a/s48/module-system/AUTHORS b/s48/module-system/AUTHORS index 2df1b32..c8931a5 100644 --- a/s48/module-system/AUTHORS +++ b/s48/module-system/AUTHORS @@ -1 +1 @@ -Martin Gasbichler +Copyright (c) 2003 Martin Gasbichler diff --git a/s48/module-system/NEWS b/s48/module-system/NEWS new file mode 100644 index 0000000..26f793c --- /dev/null +++ b/s48/module-system/NEWS @@ -0,0 +1,2 @@ +version 0.0 +* New package system. diff --git a/s48/module-system/interfaces.scm b/s48/module-system/interfaces.scm deleted file mode 100644 index fee1f31..0000000 --- a/s48/module-system/interfaces.scm +++ /dev/null @@ -1,17 +0,0 @@ -(define-interface rt-modules-interface - (export ((lambda-interface - with-names-from-rt-structure) - :syntax) - reify-structure - rt-structure->environment - load-structure - load-config-file - rt-structure-binding)) - -(define-interface rt-modules-core-interface - (export interface-value-names - reify-structure - rt-structure->environment - load-config-file - rt-structure-binding - load-structure)) \ No newline at end of file diff --git a/s48/module-system/packages.scm b/s48/module-system/load.scm similarity index 72% rename from s48/module-system/packages.scm rename to s48/module-system/load.scm index f00d260..d349141 100644 --- a/s48/module-system/packages.scm +++ b/s48/module-system/load.scm @@ -1,4 +1,20 @@ -(define-structure rt-modules rt-modules-interface +(define-interface rt-modules-interface + (export ((lambda-interface + with-names-from-rt-structure) + :syntax) + reify-structure + rt-structure->environment + load-structure + load-config-file + rt-structure-binding)) + +(define-interface rt-modules-core-interface + (export interface-value-names + reify-structure + rt-structure->environment + load-config-file + rt-structure-binding + load-structure))(define-structure rt-modules rt-modules-interface (open scheme rt-modules-core) diff --git a/s48/module-system/pkg-def.scm b/s48/module-system/pkg-def.scm new file mode 100644 index 0000000..d7dc702 --- /dev/null +++ b/s48/module-system/pkg-def.scm @@ -0,0 +1,9 @@ +(define-package "module-system" + (0 0) + () + (install-file "load.scm" 'base) + (install-file "README" 'doc) + (install-file "NEWS" 'doc) + (install-string (COPYING) "COPYING" 'doc) + (install-file "overlapping-imports.scm" 'scheme) + (install-file "rt-module.scm" 'scheme)) diff --git a/s48/procedure-tables/AUTHORS b/s48/procedure-tables/AUTHORS index 7468301..f14e445 100644 --- a/s48/procedure-tables/AUTHORS +++ b/s48/procedure-tables/AUTHORS @@ -1 +1 @@ -Taylor Campbell +Copyright (c) 2003 Taylor Campbell diff --git a/s48/procedure-tables/NEWS b/s48/procedure-tables/NEWS new file mode 100644 index 0000000..26f793c --- /dev/null +++ b/s48/procedure-tables/NEWS @@ -0,0 +1,2 @@ +version 0.0 +* New package system. diff --git a/s48/procedure-tables/interfaces.scm b/s48/procedure-tables/interfaces.scm deleted file mode 100644 index e3063ed..0000000 --- a/s48/procedure-tables/interfaces.scm +++ /dev/null @@ -1,5 +0,0 @@ -(define-interface procedure-hash-interface - (export (procedure-hash (proc (:procedure) :exact-integer)))) - -(define-interface procedure-tables-interface - (export (make-procedure-table (proc () :value)))) diff --git a/s48/procedure-tables/packages.scm b/s48/procedure-tables/load.scm similarity index 60% rename from s48/procedure-tables/packages.scm rename to s48/procedure-tables/load.scm index 8d29f1d..a6ef321 100644 --- a/s48/procedure-tables/packages.scm +++ b/s48/procedure-tables/load.scm @@ -1,3 +1,9 @@ +(define-interface procedure-hash-interface + (export (procedure-hash (proc (:procedure) :exact-integer)))) + +(define-interface procedure-tables-interface + (export (make-procedure-table (proc () :value)))) + (define-structure procedure-hash procedure-hash-interface (open scheme more-types diff --git a/s48/procedure-tables/pkg-def.scm b/s48/procedure-tables/pkg-def.scm new file mode 100644 index 0000000..17eea7f --- /dev/null +++ b/s48/procedure-tables/pkg-def.scm @@ -0,0 +1,9 @@ +(define-package "procedure-tables" + (0 0) + () + (install-file "load.scm" 'base) + (install-file "README" 'doc) + (install-file "NEWS" 'doc) + (install-string (COPYING) "COPYING" 'doc) + (install-file "procedure-tables.scm" 'scheme) + (install-file "procedure-hash.scm" 'scheme)) diff --git a/s48/profile/AUTHORS b/s48/profile/AUTHORS index 008476f..c5f583b 100644 --- a/s48/profile/AUTHORS +++ b/s48/profile/AUTHORS @@ -1 +1 @@ -Matthias Neubauer, Eric Knauel +Copyright (c) 2003 Matthias Neubauer, Eric Knauel diff --git a/s48/profile/NEWS b/s48/profile/NEWS new file mode 100644 index 0000000..26f793c --- /dev/null +++ b/s48/profile/NEWS @@ -0,0 +1,2 @@ +version 0.0 +* New package system. diff --git a/s48/profile/interfaces.scm b/s48/profile/interfaces.scm deleted file mode 100644 index 9c391c9..0000000 --- a/s48/profile/interfaces.scm +++ /dev/null @@ -1,6 +0,0 @@ -(define-interface mini-profiler-interface - (export - profile-init! - display-profile - (define-prof :syntax) - (account-for :syntax))) \ No newline at end of file diff --git a/s48/profile/load.scm b/s48/profile/load.scm new file mode 100644 index 0000000..208d6db --- /dev/null +++ b/s48/profile/load.scm @@ -0,0 +1,16 @@ +(define-interface mini-profiler-interface + (export + profile-init! + display-profile + (define-prof :syntax) + (account-for :syntax)))(define-structure mini-profiler mini-profiler-interface + (open scheme + table + formats + extended-ports + time) + (files profile)) + +(define-structure no-mini-profiler mini-profiler-interface + (open scheme) + (files no-profile)) diff --git a/s48/profile/packages.scm b/s48/profile/packages.scm deleted file mode 100644 index dc6f911..0000000 --- a/s48/profile/packages.scm +++ /dev/null @@ -1,11 +0,0 @@ -(define-structure mini-profiler mini-profiler-interface - (open scheme - table - formats - extended-ports - time) - (files profile)) - -(define-structure no-mini-profiler mini-profiler-interface - (open scheme) - (files no-profile)) diff --git a/s48/profile/pkg-def.scm b/s48/profile/pkg-def.scm new file mode 100644 index 0000000..94e6564 --- /dev/null +++ b/s48/profile/pkg-def.scm @@ -0,0 +1,9 @@ +(define-package "profile" + (0 0) + () + (install-file "load.scm" 'base) + (install-file "README" 'doc) + (install-file "NEWS" 'doc) + (install-string (COPYING) "COPYING" 'doc) + (install-file "no-profile.scm" 'scheme) + (install-file "profile.scm" 'scheme)) diff --git a/s48/sequences/AUTHORS b/s48/sequences/AUTHORS index 32d2642..ea94477 100644 --- a/s48/sequences/AUTHORS +++ b/s48/sequences/AUTHORS @@ -1 +1 @@ -Rolf-Thomas Happe +Copyright (c) 2003 Rolf-Thomas Happe diff --git a/s48/sequences/NEWS b/s48/sequences/NEWS new file mode 100644 index 0000000..26f793c --- /dev/null +++ b/s48/sequences/NEWS @@ -0,0 +1,2 @@ +version 0.0 +* New package system. diff --git a/s48/sequences/interfaces.scm b/s48/sequences/interfaces.scm deleted file mode 100644 index a787af1..0000000 --- a/s48/sequences/interfaces.scm +++ /dev/null @@ -1,96 +0,0 @@ -; Copyright (c) 2003 RT Happe -; See the file COPYING distributed with the Scheme Untergrund Library - -;; the basic protocol including a vanilla constructor -(define-interface sequence-basics-face - (export sequence? - sequence-length - sequence-ref - sequence-set! - make-another-sequence)) - -;; things definable in terms of the basic protocol -(define-interface sequence-extras-face - (export sequence->list - sequence-tabulate! - sequence-fill! - subsequence - sequence-copy - sequence-copy! - sequence-copy/maker - sequence-append - sequence-map sequences-map - sequence-map/maker sequences-map/maker - sequence-map-into! sequences-map-into! - sequence-for-each sequences-for-each - sequence-fold sequences-fold - sequence-fold-right sequences-fold-right - sequence-null? - sequence-any sequences-any - sequence-every sequences-every - sequence= sequences= - )) - -;; specialised sequence operations (for lists, actually) -(define-interface sequence-specifics-face - (export list-set! - list-fill! - sublist - )) - -;; the sequence ADT etc. -(define-interface absequences-face - (export make-sequence-behavior - sequence-behavior? - make-absequence-record - absequence:behavior - make-absequence/behavior - absequence/behavior - list->absequence/behavior - absequence? - absequence-ref - absequence-set! - absequence-length)) - -;; the basic + extra sequence procedures -;; [ extends the union of SEQUENCE-BASICS- and -EXTRAS-INTERFACE with -;; `VECTOR' replacing `SEQUENCE' ] -(define-interface vector-lib-face - (export ;; constructors and the like - make-vector - vector - list->vector ; with opts - vector-tabulate - ;; basics w/o the vanilla constructor - vector? - vector-length - vector-ref - vector-set! - - ;; extras - vector->list - vector-fill! - vector-tabulate! - subvector - vector-copy - vector-copy! - vector-append - vector-map ; forget the optional MAKER arg - vector-map-into! - vector-for-each - vector-fold - vector-fold-right - vector-null? - vector-any - vector-every - vector= - vectors-map ; but not vectors-map/maker - vectors-map-into! - vectors-for-each - vectors-fold - vectors-fold-right - vectors-any - vectors-every - vectors= - )) - diff --git a/s48/sequences/packages.scm b/s48/sequences/load.scm similarity index 59% rename from s48/sequences/packages.scm rename to s48/sequences/load.scm index 7e71712..9aa7a3a 100644 --- a/s48/sequences/packages.scm +++ b/s48/sequences/load.scm @@ -1,6 +1,99 @@ ; Copyright (c) 2003 RT Happe ; See the file COPYING distributed with the Scheme Untergrund Library +;; the basic protocol including a vanilla constructor +(define-interface sequence-basics-face + (export sequence? + sequence-length + sequence-ref + sequence-set! + make-another-sequence)) + +;; things definable in terms of the basic protocol +(define-interface sequence-extras-face + (export sequence->list + sequence-tabulate! + sequence-fill! + subsequence + sequence-copy + sequence-copy! + sequence-copy/maker + sequence-append + sequence-map sequences-map + sequence-map/maker sequences-map/maker + sequence-map-into! sequences-map-into! + sequence-for-each sequences-for-each + sequence-fold sequences-fold + sequence-fold-right sequences-fold-right + sequence-null? + sequence-any sequences-any + sequence-every sequences-every + sequence= sequences= + )) + +;; specialised sequence operations (for lists, actually) +(define-interface sequence-specifics-face + (export list-set! + list-fill! + sublist + )) + +;; the sequence ADT etc. +(define-interface absequences-face + (export make-sequence-behavior + sequence-behavior? + make-absequence-record + absequence:behavior + make-absequence/behavior + absequence/behavior + list->absequence/behavior + absequence? + absequence-ref + absequence-set! + absequence-length)) + +;; the basic + extra sequence procedures +;; [ extends the union of SEQUENCE-BASICS- and -EXTRAS-INTERFACE with +;; `VECTOR' replacing `SEQUENCE' ] +(define-interface vector-lib-face + (export ;; constructors and the like + make-vector + vector + list->vector ; with opts + vector-tabulate + ;; basics w/o the vanilla constructor + vector? + vector-length + vector-ref + vector-set! + + ;; extras + vector->list + vector-fill! + vector-tabulate! + subvector + vector-copy + vector-copy! + vector-append + vector-map ; forget the optional MAKER arg + vector-map-into! + vector-for-each + vector-fold + vector-fold-right + vector-null? + vector-any + vector-every + vector= + vectors-map ; but not vectors-map/maker + vectors-map-into! + vectors-for-each + vectors-fold + vectors-fold-right + vectors-any + vectors-every + vectors= + )) + ;;; refers to structures from sunterlib/s48/krims ;;; relies on implicit shadowing of exported bindings diff --git a/s48/sequences/pkg-def.scm b/s48/sequences/pkg-def.scm new file mode 100644 index 0000000..bf97b34 --- /dev/null +++ b/s48/sequences/pkg-def.scm @@ -0,0 +1,13 @@ +(define-package "sequences" + (0 0) + () + (install-file "load.scm" 'base) + (install-file "README" 'doc) + (install-file "NEWS" 'doc) + (install-string (COPYING) "COPYING" 'doc) + (install-file "baseqs.scm" 'scheme) + (install-file "genseqs.scm" 'scheme) + (install-file "uniseqs.scm" 'scheme) + (install-file "composeqs.scm" 'scheme) + (install-file "specseqs.scm" 'scheme) + (install-file "vecnames.scm" 'scheme))