Fixes PR13659. There's nothing wrong with an empty zip file, so zip shouldn't error

This commit is contained in:
Jay McCarthy 2013-04-29 15:00:53 -06:00
parent a12d516d94
commit 5aed43de52

View File

@ -262,7 +262,7 @@
;; zip : output-file paths ->
(provide zip)
(define (zip zip-file . paths)
(when (null? paths) (error 'zip "no paths specified"))
;; (when (null? paths) (error 'zip "no paths specified"))
(with-output-to-file zip-file
(lambda () (zip->output (pathlist-closure paths)))))