Removing spurious logging.

This commit is contained in:
Alex Shinn 2014-04-06 21:58:06 +09:00
parent 9e007d6c7c
commit 2d6940182c

View file

@ -93,7 +93,6 @@
(define (path-top path) (define (path-top path)
(substring path 0 (string-find path #\/))) (substring path 0 (string-find path #\/)))
(let ((files (map path-normalize (tar-files tarball)))) (let ((files (map path-normalize (tar-files tarball))))
(log-error "files: " files)
(and (every path-relative? files) (and (every path-relative? files)
(or (< (length files) 2) (or (< (length files) 2)
(let ((dir (path-top (car files)))) (let ((dir (path-top (car files))))