Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-15 08:57:33 +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))))))
(cond
((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))
(die 2 "can't create directory: " local-dir))
(warn "can't create directory: " local-dir))
(else
(guard (exn (else (die 2 "couldn't write repository")))
(call-with-output-file local-tmp