Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing missing repository-uri

Browse source
This commit is contained in:
Alex Shinn 2015-05-09 01:00:42 +09:00
parent 57b52a4ff0
commit 70143023ba
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/chibi/snow/commands.scm
View file

@ -1130,6 +1130,12 @@
(call-with-input-file (repository-local-path cfg repo-uri) (call-with-input-file (repository-local-path cfg repo-uri)
read)))) read))))
(define (get-repository-list cfg)
(let ((ls (conf-get-list cfg 'repository-uri)))
(if (pair? ls)
ls
(list (remote-uri cfg 'default-repository "/s/repo.scm")))))
;; returns all repos merged as a sexp, updated as needed ;; returns all repos merged as a sexp, updated as needed
;; not to be confused with the current-repo util in (chibi snow fort) ;; not to be confused with the current-repo util in (chibi snow fort)
;; which returns the single host ;; which returns the single host
@ -1152,7 +1158,7 @@
(eq? 'url (car x)))) (eq? 'url (car x))))
ls))) ls)))
(let lp ((ls (map (lambda (x) (make-loc x 1.0 0)) (let lp ((ls (map (lambda (x) (make-loc x 1.0 0))
(conf-get-list cfg 'repository-uri))) (get-repository-list cfg)))
(seen '()) (seen '())
(res '())) (res '()))
(cond (cond