teams: Add ‘define-module’ clause.

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

Change-Id: I22d7a3f52eb5ddacada05d3ab1c41814474cb5d2
This commit is contained in:
Ludovic Courtès 2025-06-09 19:02:41 +02:00
parent f53b9f309f
commit 0d0eae1600
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

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