~ chicken-core (chicken-5) 3d177eba8e19f2f5d83d25aac6289c6c21fcc9be
commit 3d177eba8e19f2f5d83d25aac6289c6c21fcc9be
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: Sat Sep 24 18:10:42 2016 +0200
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