From 0d0eae160066e3e02de1d98e8053e2c11f8264be Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 9 Jun 2025 19:02:41 +0200
Subject: [PATCH] =?UTF-8?q?teams:=20Add=20=E2=80=98define-module=E2=80=99?=
 =?UTF-8?q?=20clause.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* etc/teams.scm: Use ‘define-module’.  This makes it easier to work at
the REPL in Geiser.

Change-Id: I22d7a3f52eb5ddacada05d3ab1c41814474cb5d2
---
 etc/teams.scm | 37 +++++++++++++++++++------------------
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/etc/teams.scm b/etc/teams.scm
index cddef3517f3..f276877d104 100755
--- a/etc/teams.scm
+++ b/etc/teams.scm
@@ -38,24 +38,25 @@ exec $pre_inst_env_maybe guix repl -- "$0" "$@"
 
 ;;; Code:
 
-(use-modules (srfi srfi-1)
-             (srfi srfi-9)
-             (srfi srfi-26)
-             (srfi srfi-34)
-             (srfi srfi-35)
-             (srfi srfi-71)
-             (ice-9 format)
-             (ice-9 regex)
-             (ice-9 match)
-             (ice-9 rdelim)
-             (guix ui)
-             (git)
-             (json)
-             (web client)
-             (web request)
-             (web response)
-             (rnrs bytevectors)
-             (guix base64))
+(define-module (teams)
+  #:use-module (srfi srfi-1)
+  #:use-module (srfi srfi-9)
+  #:use-module (srfi srfi-26)
+  #:use-module (srfi srfi-34)
+  #:use-module (srfi srfi-35)
+  #:use-module (srfi srfi-71)
+  #:use-module (ice-9 format)
+  #:use-module (ice-9 regex)
+  #:use-module (ice-9 match)
+  #:use-module (ice-9 rdelim)
+  #:use-module (guix ui)
+  #:use-module (git)
+  #:use-module (json)
+  #:use-module (web client)
+  #:use-module (web request)
+  #:use-module (web response)
+  #:use-module (rnrs bytevectors)
+  #:use-module (guix base64))
 
 (define-record-type <regexp*>
   (%make-regexp* pat flag rx)