~ chicken-core (chicken-5) 364d04cf60cf21828968dc0cf66cfe2ac4e2bc85


commit 364d04cf60cf21828968dc0cf66cfe2ac4e2bc85
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Nov 15 16:35:30 2016 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Nov 15 16:35:30 2016 +0100

    chicken-uninstall: bugfix

diff --git a/chicken-uninstall.scm b/chicken-uninstall.scm
index 3d12074c..6f073e7a 100644
--- a/chicken-uninstall.scm
+++ b/chicken-uninstall.scm
@@ -93,7 +93,7 @@
       (lambda (f)
         (let ((p (if (absolute-pathname? f) f (make-pathname repo f))))
           (when (file-exists? p) (delete-installed-file p))))
-      (cdr files))
+      files)
     (delete-installed-file ifile)))
 
 (define (delete-file-command platform)
Trap