~ chicken-core (chicken-5) 590e58d9cfaed30d1b79abcc8bab4c13b80691ce

commit 590e58d9cfaed30d1b79abcc8bab4c13b80691ce
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Mar 12 07:51:21 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Mar 12 07:51:21 2010 +0100

    same for chicken-status and chicken-uninstall

diff --git a/chicken-status.scm b/chicken-status.scm
index da363bf8..eba2b3b4 100644
--- a/chicken-status.scm
+++ b/chicken-status.scm
@@ -122,7 +122,7 @@ 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))
+			   (if (every (cut memq <> *short-options*) sos)
 			       (loop (append (map (cut string #\- <>) sos) (cdr args)) pats)
 			       (usage 1)))
 			 (usage 1)))
diff --git a/chicken-uninstall.scm b/chicken-uninstall.scm
index 5c2665be..35feae9d 100644
--- a/chicken-uninstall.scm
+++ b/chicken-uninstall.scm
@@ -108,7 +108,7 @@ 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))
+			 (if (every (cut memq <> *short-options*) sos)
 			     (loop (append (map (cut string #\- <>) sos) (cdr args)) pats)
 			     (usage 1)))
 		       (usage 1)))