~ruther/guix-local

0d0eae160066e3e02de1d98e8053e2c11f8264be — Ludovic Courtès 1 year, 1 month ago f53b9f3
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(-)

M etc/teams.scm
M etc/teams.scm => etc/teams.scm +19 -18
@@ 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)