From d6966b8a5b4f2ddda2bc685b9642e7a1c2cbe17c Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Wed, 30 Aug 2023 15:37:42 -0400
Subject: 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.
---
 etc/teams.scm.in | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'etc/teams.scm.in')

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