forbid usage of capture groups in list patterns with programs

isamert · Jun 4, 2019 · cc837c9 · cc837c9
1 parent eb8ccae
commit cc837c9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/jaro b/jaro
@@ -156,8 +156,8 @@
                       (set! str (substring-replace str "%F" (escape (path->abs file))))
                       (set! str (substring-replace str "%u" (escape (path->uri file))))
                       ;; Replace capture groups with %0 %1 %2...
-                      (set! pattern (pattern-exec pattern file))
-                      (when pattern
+                      (when (and pattern (not (list? pattern)))
+                       (set! pattern (pattern-exec pattern file))
                        (for-each
                         (λ (i) (let ((captured (match:substring pattern i)))
                                  (when captured