etc: teams: Fix regexp match and execution.

This is a follow up to commit 4d7b25a0 ("etc: teams: Sort and improve display
of regular expression in 'scope' field.").

* etc/teams.scm.in (regexp-exec*): Rename to...
(regexp*-exec): ... this.
(find-team-by-scope): Replace regexp? with regexp*?.  Replace regexp-exec with
regexp*-exec.

1 files changed, 3 insertions, 3 deletions

diff --git a/etc/teams.scm.in b/etc/teams.scm.in
index 29813e8c6e..e84e89201d 100644
--- a/etc/teams.scm.in
+++ b/etc/teams.scm.in
@@ -53,7 +53,7 @@
   "Alternative to `make-regexp' producing annotated <regexp*> objects."
   (%make-regexp* pat flag (make-regexp pat flag)))
 
-(define (regexp-exec* rx* str)
+(define (regexp*-exec rx* str)
   "Execute the RX* regexp, a <regexp*> object."
   (regexp-exec (regexp*-rx rx*) str))
 
@@ -653,8 +653,8 @@ of file names as string."
                 (any (match-lambda
                        ((? string? scope)
                         (string=? scope file))
-                       ((? regexp? scope)
-                        (regexp-exec scope file)))
+                       ((? regexp*? scope)
+                        (regexp*-exec scope file)))
                      (team-scope team)))
               files)
          (cons team acc)