From d42d4d56000d18869c25c0627fd9ea8b06e57f6c Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 4 Jun 2020 23:55:37 +0900 Subject: [PATCH] replace define-library-alias with define-library + alias-for --- .gitignore | 9 ++ lib/meta-7.scm | 185 ++++++++++++++++++------------------ lib/scheme/bitwise.sld | 2 +- lib/scheme/box.sld | 2 +- lib/scheme/case-lambda.sld | 2 +- lib/scheme/charset.sld | 2 +- lib/scheme/comparator.sld | 2 +- lib/scheme/ephemeron.sld | 2 +- lib/scheme/fixnum.sld | 2 + lib/scheme/flonum.sld | 2 +- lib/scheme/generator.sld | 2 +- lib/scheme/hash-table.sld | 2 +- lib/scheme/ideque.sld | 2 +- lib/scheme/ilist.sld | 2 +- lib/scheme/list-queue.sld | 2 +- lib/scheme/list.sld | 2 +- lib/scheme/lseq.sld | 2 +- lib/scheme/mapping.sld | 2 +- lib/scheme/mapping/hash.sld | 28 +----- lib/scheme/regex.sld | 2 +- lib/scheme/set.sld | 2 +- lib/scheme/show.sld | 2 +- lib/scheme/sort.sld | 2 +- lib/scheme/stream.sld | 2 +- lib/scheme/text.sld | 2 +- lib/scheme/vector.sld | 2 +- lib/scheme/vector/base.sld | 2 +- lib/scheme/vector/c128.sld | 2 +- lib/scheme/vector/c64.sld | 2 +- lib/scheme/vector/f32.sld | 2 +- lib/scheme/vector/f64.sld | 2 +- lib/scheme/vector/s16.sld | 2 +- lib/scheme/vector/s32.sld | 2 +- lib/scheme/vector/s64.sld | 2 +- lib/scheme/vector/s8.sld | 2 +- lib/scheme/vector/u16.sld | 2 +- lib/scheme/vector/u32.sld | 2 +- lib/scheme/vector/u64.sld | 2 +- lib/scheme/vector/u8.sld | 2 +- 39 files changed, 141 insertions(+), 153 deletions(-) create mode 100644 lib/scheme/fixnum.sld diff --git a/.gitignore b/.gitignore index 3c51a758..50005d53 100644 --- a/.gitignore +++ b/.gitignore @@ -51,15 +51,23 @@ lib/chibi/stty.c lib/chibi/system.c lib/chibi/time.c lib/chibi/win32/process-win32.c +lib/scheme/bytevector.c lib/srfi/144/math.c lib/srfi/160/uvprims.c *.tgz +*.bz2 +*.xz *.html *.img *.err *.fasl +*.txt +*.test +*.train +*.h5 !index.html +benchmarks/gabriel/times.tsv examples/snow-fort examples/synthcode tests/snow/repo-cache @@ -73,3 +81,4 @@ tmp js/chibi.* build-lib/chibi/char-set/derived.scm +build-lib/chibi/char-set/width.scm diff --git a/lib/meta-7.scm b/lib/meta-7.scm index ee721c8f..3222fc07 100644 --- a/lib/meta-7.scm +++ b/lib/meta-7.scm @@ -229,101 +229,104 @@ (define define-library-transformer (er-macro-transformer (lambda (expr rename compare) - (let ((name (cadr expr)) - (body (cddr expr)) - (tmp (rename 'tmp)) - (this-module (rename '*this-module*)) - (_add-module! (rename 'add-module!)) - (_make-module (rename 'make-module)) - (_define (rename 'meta-define)) - (_lambda (rename 'lambda)) - (_let (rename 'let)) - (_map (rename 'map)) - (_if (rename 'if)) - (_cond (rename 'cond)) - (_set! (rename 'set!)) - (_quote (rename 'quote)) - (_and (rename 'and)) - (_= (rename '=)) - (_eq? (rename 'eq?)) - (_pair? (rename 'pair?)) - (_null? (rename 'null?)) - (_reverse (rename 'reverse)) - (_append (rename 'append)) - (_assq (rename 'assq)) - (_=> (rename '=>)) - (_else (rename 'else)) - (_length (rename 'length)) - (_identifier->symbol (rename 'identifier->symbol)) - (_error (rename 'error)) - (_cons (rename 'cons)) - (_car (rename 'car)) - (_cdr (rename 'cdr)) - (_caar (rename 'caar)) - (_cadr (rename 'cadr)) - (_cdar (rename 'cdar)) - (_cddr (rename 'cddr))) - ;; Check for suspicious defines. - (for-each - (lambda (x) - (if (and (pair? x) (memq (strip-syntactic-closures (car x)) - '(define define-syntax))) - (warn "suspicious use of define in library declarations - did you forget to wrap it in begin?" x))) - (cdr expr)) - ;; Generate the library wrapper. - (set! *this-path* - (cons (string-concatenate - (module-name->strings (cdr (reverse name)) '())) - *this-path*)) - `(,_let ((,tmp ,this-module)) - (,_define (rewrite-export x) - (,_if (,_pair? x) - (,_if (,_and (,_= 3 (,_length x)) - (,_eq? (,_quote rename) - (,_identifier->symbol (,_car x)))) - (,_cons (,_car (,_cddr x)) (,_cadr x)) - (,_error "invalid module export" x)) - x)) - (,_define (extract-exports) - (,_cond - ((,_assq (,_quote export-all) ,this-module) - ,_=> (,_lambda (x) - (,_if (,_pair? (,_cdr x)) - (,_error "export-all takes no parameters" x)) - #f)) - (,_else - (,_let lp ((ls ,this-module) (res (,_quote ()))) - (,_cond - ((,_null? ls) res) - ((,_and (,_pair? (,_car ls)) - (,_eq? (,_quote export) (,_caar ls))) - (lp (,_cdr ls) - (,_append (,_map rewrite-export (,_cdar ls)) res))) - (,_else (lp (,_cdr ls) res))))))) - (,_set! ,this-module (,_quote ())) - ,@body - (,_add-module! (,_quote ,name) - (,_make-module (extract-exports) - #f - (,_reverse ,this-module))) - (,_set! ,this-module ,tmp) - (,(rename 'pop-this-path))))))) + (cond + ((find (lambda (x) (and (pair? x) (compare (car x) (rename 'alias-for)))) + (cddr expr)) + => (lambda (alias) + (if (not (= 1 (length (cddr expr)))) + (error "alias must be the only library declaration" expr)) + ;; 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 (cadr alias)))) + (if (not orig) + (error "couldn't find library to alias" (cadr alias)) + `(,(rename 'add-module!) (,(rename 'quote) ,name) + (,(rename 'quote) ,orig)))))) + (else + (let ((name (cadr expr)) + (body (cddr expr)) + (tmp (rename 'tmp)) + (this-module (rename '*this-module*)) + (_add-module! (rename 'add-module!)) + (_make-module (rename 'make-module)) + (_define (rename 'meta-define)) + (_lambda (rename 'lambda)) + (_let (rename 'let)) + (_map (rename 'map)) + (_if (rename 'if)) + (_cond (rename 'cond)) + (_set! (rename 'set!)) + (_quote (rename 'quote)) + (_and (rename 'and)) + (_= (rename '=)) + (_eq? (rename 'eq?)) + (_pair? (rename 'pair?)) + (_null? (rename 'null?)) + (_reverse (rename 'reverse)) + (_append (rename 'append)) + (_assq (rename 'assq)) + (_=> (rename '=>)) + (_else (rename 'else)) + (_length (rename 'length)) + (_identifier->symbol (rename 'identifier->symbol)) + (_error (rename 'error)) + (_cons (rename 'cons)) + (_car (rename 'car)) + (_cdr (rename 'cdr)) + (_caar (rename 'caar)) + (_cadr (rename 'cadr)) + (_cdar (rename 'cdar)) + (_cddr (rename 'cddr))) + ;; Check for suspicious defines. + (for-each + (lambda (x) + (if (and (pair? x) (memq (strip-syntactic-closures (car x)) + '(define define-syntax))) + (warn "suspicious use of define in library declarations - did you forget to wrap it in begin?" x))) + (cdr expr)) + ;; Generate the library wrapper. + (set! *this-path* + (cons (string-concatenate + (module-name->strings (cdr (reverse name)) '())) + *this-path*)) + `(,_let ((,tmp ,this-module)) + (,_define (rewrite-export x) + (,_if (,_pair? x) + (,_if (,_and (,_= 3 (,_length x)) + (,_eq? (,_quote rename) + (,_identifier->symbol (,_car x)))) + (,_cons (,_car (,_cddr x)) (,_cadr x)) + (,_error "invalid module export" x)) + x)) + (,_define (extract-exports) + (,_cond + ((,_assq (,_quote export-all) ,this-module) + ,_=> (,_lambda (x) + (,_if (,_pair? (,_cdr x)) + (,_error "export-all takes no parameters" x)) + #f)) + (,_else + (,_let lp ((ls ,this-module) (res (,_quote ()))) + (,_cond + ((,_null? ls) res) + ((,_and (,_pair? (,_car ls)) + (,_eq? (,_quote export) (,_caar ls))) + (lp (,_cdr ls) + (,_append (,_map rewrite-export (,_cdar ls)) res))) + (,_else (lp (,_cdr ls) res))))))) + (,_set! ,this-module (,_quote ())) + ,@body + (,_add-module! (,_quote ,name) + (,_make-module (extract-exports) + #f + (,_reverse ,this-module))) + (,_set! ,this-module ,tmp) + (,(rename 'pop-this-path))))))))) (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 991a787c..d0e11b3f 100644 --- a/lib/scheme/bitwise.sld +++ b/lib/scheme/bitwise.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme bitwise) (srfi 151)) +(define-library (scheme bitwise) (alias-for (srfi 151))) diff --git a/lib/scheme/box.sld b/lib/scheme/box.sld index b2c45521..0cfae029 100644 --- a/lib/scheme/box.sld +++ b/lib/scheme/box.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme box) (srfi 111)) +(define-library (scheme box) (alias-for (srfi 111))) diff --git a/lib/scheme/case-lambda.sld b/lib/scheme/case-lambda.sld index fea78d31..8ae2ecc1 100644 --- a/lib/scheme/case-lambda.sld +++ b/lib/scheme/case-lambda.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme case-lambda) (srfi 16)) +(define-library (scheme case-lambda) (alias-for (srfi 16))) diff --git a/lib/scheme/charset.sld b/lib/scheme/charset.sld index 1a7f892d..d5a22345 100644 --- a/lib/scheme/charset.sld +++ b/lib/scheme/charset.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme charset) (srfi 14)) +(define-library (scheme charset) (alias-for (srfi 14))) diff --git a/lib/scheme/comparator.sld b/lib/scheme/comparator.sld index f6412f46..a252b6c3 100644 --- a/lib/scheme/comparator.sld +++ b/lib/scheme/comparator.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme comparator) (srfi 128)) +(define-library (scheme comparator) (alias-for (srfi 128))) diff --git a/lib/scheme/ephemeron.sld b/lib/scheme/ephemeron.sld index 49b1d29e..18500928 100644 --- a/lib/scheme/ephemeron.sld +++ b/lib/scheme/ephemeron.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme ephemeron) (srfi 124)) +(define-library (scheme ephemeron) (alias-for (srfi 124))) diff --git a/lib/scheme/fixnum.sld b/lib/scheme/fixnum.sld new file mode 100644 index 00000000..fff356cc --- /dev/null +++ b/lib/scheme/fixnum.sld @@ -0,0 +1,2 @@ + +(define-library (scheme fixnum) (alias-for (srfi 143))) diff --git a/lib/scheme/flonum.sld b/lib/scheme/flonum.sld index 07559774..059f60bb 100644 --- a/lib/scheme/flonum.sld +++ b/lib/scheme/flonum.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme flonum) (srfi 144)) +(define-library (scheme flonum) (alias-for (srfi 144))) diff --git a/lib/scheme/generator.sld b/lib/scheme/generator.sld index 7e69aca2..1489bb09 100644 --- a/lib/scheme/generator.sld +++ b/lib/scheme/generator.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme generator) (srfi 121)) +(define-library (scheme generator) (alias-for (srfi 121))) diff --git a/lib/scheme/hash-table.sld b/lib/scheme/hash-table.sld index 006f73c1..2eb7d2ef 100644 --- a/lib/scheme/hash-table.sld +++ b/lib/scheme/hash-table.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme hash-table) (srfi 125)) +(define-library (scheme hash-table) (alias-for (srfi 125))) diff --git a/lib/scheme/ideque.sld b/lib/scheme/ideque.sld index 3ffe8bc2..cb25b7f7 100644 --- a/lib/scheme/ideque.sld +++ b/lib/scheme/ideque.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme ideque) (srfi 134)) +(define-library (scheme ideque) (alias-for (srfi 134))) diff --git a/lib/scheme/ilist.sld b/lib/scheme/ilist.sld index b218c6ac..545acca0 100644 --- a/lib/scheme/ilist.sld +++ b/lib/scheme/ilist.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme ilist) (srfi 116)) +(define-library (scheme ilist) (alias-for (srfi 116))) diff --git a/lib/scheme/list-queue.sld b/lib/scheme/list-queue.sld index 121ee12f..eddad85c 100644 --- a/lib/scheme/list-queue.sld +++ b/lib/scheme/list-queue.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme list-queue) (srfi 117)) +(define-library (scheme list-queue) (alias-for (srfi 117))) diff --git a/lib/scheme/list.sld b/lib/scheme/list.sld index a7798c18..6384aef7 100644 --- a/lib/scheme/list.sld +++ b/lib/scheme/list.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme list) (srfi 1)) +(define-library (scheme list) (alias-for (srfi 1))) diff --git a/lib/scheme/lseq.sld b/lib/scheme/lseq.sld index 9796e925..a478e80d 100644 --- a/lib/scheme/lseq.sld +++ b/lib/scheme/lseq.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme lseq) (srfi 127)) +(define-library (scheme lseq) (alias-for (srfi 127))) diff --git a/lib/scheme/mapping.sld b/lib/scheme/mapping.sld index f01aa989..c0f8bf41 100644 --- a/lib/scheme/mapping.sld +++ b/lib/scheme/mapping.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme mapping) (srfi 146)) +(define-library (scheme mapping) (alias-for (srfi 146))) diff --git a/lib/scheme/mapping/hash.sld b/lib/scheme/mapping/hash.sld index 4c498541..782be4a0 100644 --- a/lib/scheme/mapping/hash.sld +++ b/lib/scheme/mapping/hash.sld @@ -1,28 +1,2 @@ -(define-library (scheme mapping hash) - (import (srfi 146 hash)) - (export - hashmap hashmap-unfold - hashmap? hashmap-contains? hashmap-empty? hashmap-disjoint? - hashmap-ref hashmap-ref/default hashmap-key-comparator - hashmap-adjoin hashmap-adjoin! - hashmap-set hashmap-set! - hashmap-replace hashmap-replace! - hashmap-delete hashmap-delete! hashmap-delete-all hashmap-delete-all! - hashmap-intern hashmap-intern! - hashmap-update hashmap-update! hashmap-update/default hashmap-update!/default - hashmap-pop hashmap-pop! - hashmap-search hashmap-search! - hashmap-size hashmap-find hashmap-count hashmap-any? hashmap-every? - hashmap-keys hashmap-values hashmap-entries - hashmap-map hashmap-map->list hashmap-for-each hashmap-fold - hashmap-filter hashmap-filter! - hashmap-remove hashmap-remove! - hashmap-partition hashmap-partition! - hashmap-copy hashmap->alist alist->hashmap alist->hashmap! - hashmap=? hashmap? hashmap<=? hashmap>=? - hashmap-union hashmap-intersection hashmap-difference hashmap-xor - hashmap-union! hashmap-intersection! hashmap-difference! hashmap-xor! - make-hashmap-comparator - hashmap-comparator - comparator?)) +(define-library (scheme mapping hash) (alias-for (srfi 146 hash))) diff --git a/lib/scheme/regex.sld b/lib/scheme/regex.sld index c34c927e..d4e684cf 100644 --- a/lib/scheme/regex.sld +++ b/lib/scheme/regex.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme regex) (srfi 115)) +(define-library (scheme regex) (alias-for (srfi 115))) diff --git a/lib/scheme/set.sld b/lib/scheme/set.sld index 1045fed9..cd5d3ffd 100644 --- a/lib/scheme/set.sld +++ b/lib/scheme/set.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme set) (srfi 113)) +(define-library (scheme set) (alias-for (srfi 113))) diff --git a/lib/scheme/show.sld b/lib/scheme/show.sld index d20f8c38..9ccbf9d3 100644 --- a/lib/scheme/show.sld +++ b/lib/scheme/show.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme show) (srfi 166)) +(define-library (scheme show) (alias-for (srfi 166))) diff --git a/lib/scheme/sort.sld b/lib/scheme/sort.sld index 48375b3c..fd712380 100644 --- a/lib/scheme/sort.sld +++ b/lib/scheme/sort.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme sort) (srfi 132)) +(define-library (scheme sort) (alias-for (srfi 132))) diff --git a/lib/scheme/stream.sld b/lib/scheme/stream.sld index 8ab82226..ae029909 100644 --- a/lib/scheme/stream.sld +++ b/lib/scheme/stream.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme stream) (srfi 41)) +(define-library (scheme stream) (alias-for (srfi 41))) diff --git a/lib/scheme/text.sld b/lib/scheme/text.sld index dde526ba..555a279a 100644 --- a/lib/scheme/text.sld +++ b/lib/scheme/text.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme text) (srfi 135)) +(define-library (scheme text) (alias-for (srfi 135))) diff --git a/lib/scheme/vector.sld b/lib/scheme/vector.sld index 71a2fbc0..247fb872 100644 --- a/lib/scheme/vector.sld +++ b/lib/scheme/vector.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme vector) (srfi 133)) +(define-library (scheme vector) (alias-for (srfi 133))) diff --git a/lib/scheme/vector/base.sld b/lib/scheme/vector/base.sld index 6870f299..ff359868 100644 --- a/lib/scheme/vector/base.sld +++ b/lib/scheme/vector/base.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme vector base) (srfi 160 base)) +(define-library (scheme vector base) (alias-for (srfi 160 base))) diff --git a/lib/scheme/vector/c128.sld b/lib/scheme/vector/c128.sld index 2ed1f905..4895d058 100644 --- a/lib/scheme/vector/c128.sld +++ b/lib/scheme/vector/c128.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme vector c128) (srfi 160 c128)) +(define-library (scheme vector c128) (alias-for (srfi 160 c128))) diff --git a/lib/scheme/vector/c64.sld b/lib/scheme/vector/c64.sld index ba2fd7af..01a2d3dd 100644 --- a/lib/scheme/vector/c64.sld +++ b/lib/scheme/vector/c64.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme vector c64) (srfi 160 c64)) +(define-library (scheme vector c64) (alias-for (srfi 160 c64))) diff --git a/lib/scheme/vector/f32.sld b/lib/scheme/vector/f32.sld index e8943991..ac0937ed 100644 --- a/lib/scheme/vector/f32.sld +++ b/lib/scheme/vector/f32.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme vector f32) (srfi 160 f32)) +(define-library (scheme vector f32) (alias-for (srfi 160 f32))) diff --git a/lib/scheme/vector/f64.sld b/lib/scheme/vector/f64.sld index 439fee13..5c27e274 100644 --- a/lib/scheme/vector/f64.sld +++ b/lib/scheme/vector/f64.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme vector f64) (srfi 160 f64)) +(define-library (scheme vector f64) (alias-for (srfi 160 f64))) diff --git a/lib/scheme/vector/s16.sld b/lib/scheme/vector/s16.sld index dcc8edfa..a9a75809 100644 --- a/lib/scheme/vector/s16.sld +++ b/lib/scheme/vector/s16.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme vector s16) (srfi 160 s16)) +(define-library (scheme vector s16) (alias-for (srfi 160 s16))) diff --git a/lib/scheme/vector/s32.sld b/lib/scheme/vector/s32.sld index f70f85e8..06c8ba0a 100644 --- a/lib/scheme/vector/s32.sld +++ b/lib/scheme/vector/s32.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme vector s32) (srfi 160 s32)) +(define-library (scheme vector s32) (alias-for (srfi 160 s32))) diff --git a/lib/scheme/vector/s64.sld b/lib/scheme/vector/s64.sld index 240160f4..5519bdf3 100644 --- a/lib/scheme/vector/s64.sld +++ b/lib/scheme/vector/s64.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme vector s64) (srfi 160 s64)) +(define-library (scheme vector s64) (alias-for (srfi 160 s64))) diff --git a/lib/scheme/vector/s8.sld b/lib/scheme/vector/s8.sld index 708c50e5..1bf8ff46 100644 --- a/lib/scheme/vector/s8.sld +++ b/lib/scheme/vector/s8.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme vector s8) (srfi 160 s8)) +(define-library (scheme vector s8) (alias-for (srfi 160 s8))) diff --git a/lib/scheme/vector/u16.sld b/lib/scheme/vector/u16.sld index c4e54ad5..25f86e26 100644 --- a/lib/scheme/vector/u16.sld +++ b/lib/scheme/vector/u16.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme vector u16) (srfi 160 u16)) +(define-library (scheme vector u16) (alias-for (srfi 160 u16))) diff --git a/lib/scheme/vector/u32.sld b/lib/scheme/vector/u32.sld index c1ef31f6..e00c81cb 100644 --- a/lib/scheme/vector/u32.sld +++ b/lib/scheme/vector/u32.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme vector u32) (srfi 160 u32)) +(define-library (scheme vector u32) (alias-for (srfi 160 u32))) diff --git a/lib/scheme/vector/u64.sld b/lib/scheme/vector/u64.sld index 0561a764..922e5db5 100644 --- a/lib/scheme/vector/u64.sld +++ b/lib/scheme/vector/u64.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme vector u64) (srfi 160 u64)) +(define-library (scheme vector u64) (alias-for (srfi 160 u64))) diff --git a/lib/scheme/vector/u8.sld b/lib/scheme/vector/u8.sld index 03e73041..e185c117 100644 --- a/lib/scheme/vector/u8.sld +++ b/lib/scheme/vector/u8.sld @@ -1,2 +1,2 @@ -(define-library-alias (scheme vector u8) (srfi 160 u8)) +(define-library (scheme vector u8) (alias-for (srfi 160 u8)))