Add: minor change to example code, use with-slots

1 files changed, 6 insertions, 7 deletions

diff --git a/mafia.org b/mafia.org
index 79f7372..4291450 100644
--- a/mafia.org
+++ b/mafia.org
@@ -128,28 +128,27 @@ Lets initialize a game with 6 actors and inspect it to see what to expect.
 #+begin_src emacs-lisp
   (let* ((mafia-game (mafia :actors (mafia-initialize-actors 6)))
          (actors (slot-value mafia-game 'actors)))
-    (cons '(class id alive?)
+    (cons '(class id alive?) ;; add the header row
           (mapcar (lambda (a)
                     (let ((class (eieio-object-class a)))
-                      (list class (slot-value a 'id)
-                            (when (eql class 'mafia-innocent) (slot-value a 'alive)))))
+                      (with-slots (id alive) a
+                        (list class id (when (eql class 'mafia-innocent) alive)))))
                   actors)))
 #+end_src
 
 #+RESULTS:
 | class          | id | alive? |
 | mafia-innocent |  1 | t      |
-| mafia-innocent |  2 | t      |
+| mafia-killer   |  2 | nil    |
 | mafia-innocent |  3 | t      |
 | mafia-innocent |  4 | t      |
 | mafia-innocent |  5 | t      |
-| mafia-killer   |  6 | nil    |
+| mafia-innocent |  6 | t      |
 
 ** Game loop
 
 The game loop will advance by a single tick where each actor /observes/ the others.
-So... we need to define a game loop function, and a method for the actors to observe.
-
+So... we need to define a game loop function, and a method for the actors to 
 #+name: game-loop
 #+begin_src emacs-lisp :results silent
   (defun mafia-play (players)