#:pattern breaks when #:program is a list

[sarg]

Given such association:

(assoc
 #:pattern "^video/.*"
 #:program '("mpv" "%f"))

jaro fails with:

In .../jaro:
   169:30  1 (helper _ _ _)
In ice-9/regex.scm:
     61:5  0 (match:count _)

ice-9/regex.scm:61:5: In procedure match:count:
In procedure vector-length: Wrong type argument in position 1 (expecting vector): #<unspecified>

That happens because jaro executes pattern for each element of #:program, but doesn't check that the regex matched anything. A workaround is to make wrap #:pattern in a list.