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

1 files changed, 19 insertions, 18 deletions

diff --git a/etc/teams.scm b/etc/teams.scm
index cddef3517f..f276877d10 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)