~ chicken-core (chicken-5) 1918b420dd53998774b3bcd9704a2d8b6f596198
commit 1918b420dd53998774b3bcd9704a2d8b6f596198
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Sep 24 18:10:23 2016 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Sun Nov 13 11:39:37 2016 +0100
chicken-status: new egg prop access, bugfix in read-info
diff --git a/chicken-status.scm b/chicken-status.scm
index 490289b0..d1eb3f9f 100644
--- a/chicken-status.scm
+++ b/chicken-status.scm
@@ -53,7 +53,7 @@
(filter (cut irregex-search rx <>) lst))
(define (read-info egg)
- (load-egg-info (make-pathname (repo-path) egg #f)))
+ (load-egg-info (make-pathname (repo-path) egg +egg-info-extension+)))
(define (filter-eggs patterns)
(let* ((eggs (gather-eggs))
@@ -91,7 +91,7 @@
(print
(format-string (string-append egg " ") w #f #\.)
(format-string
- (string-append " version: " (->string (cadr version)))
+ (string-append " version: " (->string version))
w #t #\.))
(print egg))))
(sort eggs string<?))))
@@ -121,11 +121,11 @@
(lambda (egg)
(let* ((info (read-info egg))
(version (get-egg-property info 'version))
- (comps (get-egg-property info 'components)))
+ (comps (get-egg-property* info 'components)))
(if version
(print (format-string (string-append egg " ") w #f #\.)
(format-string (string-append " version: "
- (->string (cadr version)))
+ (->string version))
w #t #\.))
(print egg))
(when comps
@@ -147,10 +147,7 @@
(sort
(append-map
(lambda (egg)
- (let ((files (get-egg-property (read-info egg) 'installed-files)))
- (if files
- (cdr files)
- '())))
+ (get-egg-property* (read-info egg) 'installed-files))
eggs)
string<?)))
@@ -158,7 +155,7 @@
(for-each
(lambda (egg)
(let ((version (get-egg-property (read-info egg) 'version)))
- (pp (list (string->symbol egg) (->string (and version (cadr version)))))))
+ (pp (list (string->symbol egg) (or version "???")))))
(gather-eggs)))
(define (usage code)
Trap