replace define-library-alias with define-library + alias-for

.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

lib/meta-7.scm

@@ -229,6 +229,21 @@
 (define define-library-transformer
   (er-macro-transformer
    (lambda (expr rename compare)
+     (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))
@@ -307,23 +322,11 @@
                                           #f
                                           (,_reverse ,this-module)))
             (,_set! ,this-module ,tmp)
-          (,(rename 'pop-this-path)))))))
+            (,(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)

lib/scheme/bitwise.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme bitwise) (srfi 151))
+(define-library (scheme bitwise) (alias-for (srfi 151)))

lib/scheme/box.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme box) (srfi 111))
+(define-library (scheme box) (alias-for (srfi 111)))

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)))

lib/scheme/charset.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme charset) (srfi 14))
+(define-library (scheme charset) (alias-for (srfi 14)))

lib/scheme/comparator.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme comparator) (srfi 128))
+(define-library (scheme comparator) (alias-for (srfi 128)))

lib/scheme/ephemeron.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme ephemeron) (srfi 124))
+(define-library (scheme ephemeron) (alias-for (srfi 124)))

lib/scheme/fixnum.sld

@@ -0,0 +1,2 @@
+
+(define-library (scheme fixnum) (alias-for (srfi 143)))

lib/scheme/flonum.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme flonum) (srfi 144))
+(define-library (scheme flonum) (alias-for (srfi 144)))

lib/scheme/generator.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme generator) (srfi 121))
+(define-library (scheme generator) (alias-for (srfi 121)))

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)))

lib/scheme/ideque.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme ideque) (srfi 134))
+(define-library (scheme ideque) (alias-for (srfi 134)))

lib/scheme/ilist.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme ilist) (srfi 116))
+(define-library (scheme ilist) (alias-for (srfi 116)))

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)))

lib/scheme/list.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme list) (srfi 1))
+(define-library (scheme list) (alias-for (srfi 1)))

lib/scheme/lseq.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme lseq) (srfi 127))
+(define-library (scheme lseq) (alias-for (srfi 127)))

lib/scheme/mapping.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme mapping) (srfi 146))
+(define-library (scheme mapping) (alias-for (srfi 146)))

lib/scheme/mapping/hash.sld

@@ -1,28 +1,2 @@
 
-(define-library (scheme mapping hash)
+(define-library (scheme mapping hash) (alias-for (srfi 146 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>=?
-   hashmap-union hashmap-intersection hashmap-difference hashmap-xor
-   hashmap-union! hashmap-intersection! hashmap-difference! hashmap-xor!
-   make-hashmap-comparator
-   hashmap-comparator
-   comparator?))

lib/scheme/regex.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme regex) (srfi 115))
+(define-library (scheme regex) (alias-for (srfi 115)))

lib/scheme/set.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme set) (srfi 113))
+(define-library (scheme set) (alias-for (srfi 113)))

lib/scheme/show.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme show) (srfi 166))
+(define-library (scheme show) (alias-for (srfi 166)))

lib/scheme/sort.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme sort) (srfi 132))
+(define-library (scheme sort) (alias-for (srfi 132)))

lib/scheme/stream.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme stream) (srfi 41))
+(define-library (scheme stream) (alias-for (srfi 41)))

lib/scheme/text.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme text) (srfi 135))
+(define-library (scheme text) (alias-for (srfi 135)))

lib/scheme/vector.sld

@@ -1,2 +1,2 @@
 
-(define-library-alias (scheme vector) (srfi 133))
+(define-library (scheme vector) (alias-for (srfi 133)))

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)))

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)))

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)))

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)))

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)))

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)))

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)))

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)))

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)))

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)))

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)))

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)))

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)))