~ 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