~dieggsy/chicken-update

4d8bde46ade97733d656ee3044c6fc6ee2781fdc — dieggsy 3 months ago c7767dc 0.1.5
Don't error on files without extension

When checking for egg file. Thanks to Pietro Cerutti for pointing this
out.
2 files changed, 4 insertions(+), 1 deletions(-)

M chicken-update.release-info
M chicken-update.scm
M chicken-update.release-info => chicken-update.release-info +1 -0
@@ 5,3 5,4 @@
(release "0.1.2")
(release "0.1.3")
(release "0.1.4")
(release "0.1.5")

M chicken-update.scm => chicken-update.scm +3 -1
@@ 61,7 61,9 @@
     titles)))

(define (installed-egg-list)
  (define (is-egginfo? f) (string=? (pathname-extension f) "egg-info"))
  (define (is-egginfo? f)
    (let ((ext (pathname-extension f)))
      (and ext (string=? (pathname-extension f) "egg-info"))))
  (define (get-egginfo-abspath d)
    (map (cut make-pathname d <> )
         (filter is-egginfo? (directory d))))