~ chicken-core (chicken-5) aea100169c2db68d0ee134c2e3c6e08dd5521842
commit aea100169c2db68d0ee134c2e3c6e08dd5521842
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Sep 24 18:10:42 2016 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Sun Nov 13 11:39:37 2016 +0100
chicken-uninstall: use better egg-prop access
diff --git a/chicken-uninstall.scm b/chicken-uninstall.scm
index 7850a04b..0d16bc6e 100644
--- a/chicken-uninstall.scm
+++ b/chicken-uninstall.scm
@@ -86,7 +86,7 @@
(list->string (reverse (left (reverse (left (string->list str)))))))
(define (remove-extension egg #!optional (repo (repo-path)))
- (and-let* ((files (get-egg-property (load-egg-info egg) 'installed-files)))
+ (and-let* ((files (get-egg-property* (load-egg-info egg) 'installed-files)))
(for-each
(lambda (f)
(let ((p (if (absolute-pathname? f) f (make-pathname repo f))))
Trap