branch master updated: etc: teams: Fix regexp match and execution.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

apteryx pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new d6966b8a5b etc: teams: Fix regexp match and execution.
d6966b8a5b is described below

commit d6966b8a5b4f2ddda2bc685b9642e7a1c2cbe17c
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Wed Aug 30 15:37:42 2023 -0400

    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(-)

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)