summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--henrietta-cache.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/henrietta-cache.scm b/henrietta-cache.scm
index 5381935..1901861 100644
--- a/henrietta-cache.scm
+++ b/henrietta-cache.scm
@@ -430,7 +430,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 (null? (lset-difference eq? sos *short-options*))
(loop (append (map (cut string #\- <>) sos) (cdr args)))
(usage 1)))
(usage 1)))