~ 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