mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
00691b64f1
Many still import (chibi), and as (scheme base) is somewhat more expensive to load at present these are changed to cond-expand. Many libraries also rely on (srfi 33), and these have been changed to a cond-expand first trying (srfi 60) where available. Also fixing a few portability concerns (duplicate imports of the same binding), and adding a few libraries missing from lib-tests.scm.
18 lines
686 B
Scheme
18 lines
686 B
Scheme
|
|
(define-library (chibi uri)
|
|
(export uri? uri->string make-uri string->uri string->path-uri uri-has-scheme?
|
|
uri-scheme uri-user uri-host uri-port uri-path uri-query uri-fragment
|
|
uri-with-scheme uri-with-user uri-with-host uri-with-path
|
|
uri-with-query uri-with-fragment uri-resolve
|
|
uri-encode uri-decode uri-query->alist uri-alist->query)
|
|
(cond-expand
|
|
(chibi
|
|
(import (chibi) (srfi 9)))
|
|
(else
|
|
(import (except (scheme base) string-map string-for-each)
|
|
(scheme char))
|
|
(begin
|
|
(define (string-concatenate ls)
|
|
(apply string-append ls)))))
|
|
(import (chibi string) (chibi pathname))
|
|
(include "uri.scm"))
|