diff options
-rw-r--r-- | henrietta-cache.scm | 2 |
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))) |