~ chicken-core (chicken-5) 688537a2d1408ea9a551e3dec8db642455c041a6

commit 688537a2d1408ea9a551e3dec8db642455c041a6
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Mar 12 07:50:20 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Mar 12 07:50:20 2010 +0100

    fixed bug in handling of combined options in chicken-install

diff --git a/chicken-install.scm b/chicken-install.scm
index 8f55b1e8..021faf15 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -614,8 +614,11 @@ EOF
                              (char=? #\- (string-ref arg 0)))
                         (if (> (string-length arg) 2)
                             (let ((sos (string->list (substring arg 1))))
-                              (if (null? (lset-intersection eq? *short-options* sos))
-                                  (loop (append (map (cut string #\- <>) sos) (cdr args)) eggs)
+                              (if (every (cut memq <> *short-options*) sos)
+                                  (loop (append 
+					 (map (cut string #\- <>) sos)
+					 (cdr args)) 
+					eggs)
                                   (usage 1)))
                             (usage 1)))
                        ((equal? "setup" (pathname-extension arg))