diff options
| author | Peter Bex <peter@more-magic.net> | 2019-09-22 16:01:38 +0200 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2019-09-22 16:01:38 +0200 |
| commit | b3b49cbf1dd93d0a783527efc868a53090fa00b6 (patch) | |
| tree | bd4c6333b98ba4fd04692c1db2f9e9b1dcd69291 | |
| parent | 02e38e71fe666262489e460860cf0250833a5092 (diff) | |
| download | henrietta-cache-b3b49cbf1dd93d0a783527efc868a53090fa00b6.tar.gz | |
Fix short option argument grouping
This used lset-intersection but that should've been lset-difference.
| -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))) |