From 63613aae434d502598a0a8d33368c8a6b4d3dfff Mon Sep 17 00:00:00 2001 From: Ian Price Date: Sun, 4 Sep 2011 01:40:54 +0100 Subject: [PATCH] path argument to relative-uri should be a list of strings --- sigil/repository.scm | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/sigil/repository.scm b/sigil/repository.scm index 8261144..3a9e713 100644 --- a/sigil/repository.scm +++ b/sigil/repository.scm @@ -108,13 +108,13 @@ "/" (encode-and-join-uri-path (append (split-and-decode-uri-path (uri-path rel)) - (split-and-decode-uri-path path)))))) + path))))) (define (make-http-repository name uri-string) (let* ((base-uri (uri-with-directory-path (or (string->uri uri-string) (error "bad URI string" uri-string)))) - (available-uri (relative-uri "available.scm" base-uri)) + (available-uri (relative-uri '("available.scm") base-uri)) (available-filename "available.scm")) (make-repository name -- 1.7.6