From b3b49cbf1dd93d0a783527efc868a53090fa00b6 Mon Sep 17 00:00:00 2001
From: Peter Bex <peter@more-magic.net>
Date: Sun, 22 Sep 2019 16:01:38 +0200
Subject: Fix short option argument grouping

This used lset-intersection but that should've been lset-difference.
---
 henrietta-cache.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))
-- 
cgit v1.2.3