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

update-repository shouldn't exit

Browse source
This commit is contained in:
Alex Shinn 2019-01-11 08:48:45 +08:00
parent 1b3ccdaf1c
commit afd887e672
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1145,9 +1145,9 @@
`(,(car repo) (url ,repo-uri) ,@(cdr repo)))))) `(,(car repo) (url ,repo-uri) ,@(cdr repo))))))
(cond (cond
((not (valid-repository? repo)) ((not (valid-repository? repo))
(die 2 "not a valid repository: " repo-uri)) (warn "not a valid repository: " repo-uri repo))
((not (create-directory* local-dir)) ((not (create-directory* local-dir))
(die 2 "can't create directory: " local-dir)) (warn "can't create directory: " local-dir))
(else (else
(guard (exn (else (die 2 "couldn't write repository"))) (guard (exn (else (die 2 "couldn't write repository")))
(call-with-output-file local-tmp (call-with-output-file local-tmp