From 659397f9c9da3aff3c2f8a2da549e2c7fcd87439 Mon Sep 17 00:00:00 2001
From: Vivianne Langdon <puttabutta@gmail.com>
Date: Sun, 5 Feb 2023 04:51:13 -0800
Subject: [PATCH] Section headers

---
 gib-gab-gob/rps.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gib-gab-gob/rps.scm b/gib-gab-gob/rps.scm
index 05b7ec0..fa4b0e6 100644
--- a/gib-gab-gob/rps.scm
+++ b/gib-gab-gob/rps.scm
@@ -8,6 +8,9 @@
   #:use-module (oop goops)
   #:export (do-rps join-rps pick-rps rps-winner rock-paper-scissors))
 
+;;
+;; Host logic
+;;
 (define-class <rps-host> ()
   (vat #:accessor vat #:init-thunk spawn-vat)
   (lobby #:accessor lobby)
@@ -30,6 +33,9 @@
 (define (do-rps user-name)
   (make <rps-host> #:user-name user-name))
 
+;;
+;; Client logic
+;;
 (define-class <rps-client> ()
   (vat #:accessor vat #:init-keyword #:vat #:init-thunk spawn-vat)
   (lobby #:accessor lobby)
@@ -53,8 +59,9 @@
                   (lambda (_)
                     (format #t "Ok! we are registered.\n")))))
 
+;;
 ;; Standard rock paper scissors logic follows!
-
+;;
 (define rock-paper-scissors (list 'rock 'paper 'scissors))
 
 (define (pick-rps)