~ 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