From d590784a3a301e38c4f516c3344e19f72f609dc4 Mon Sep 17 00:00:00 2001
From: Jeremy Baxter <jeremy@baxters.nz>
Date: Tue, 16 Apr 2024 20:42:25 +1200
Subject: [PATCH] lispbox: return number in attempt-guess

---
 snippets/lispbox/guess.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/snippets/lispbox/guess.lisp b/snippets/lispbox/guess.lisp
index 0130ac8..d764a10 100644
--- a/snippets/lispbox/guess.lisp
+++ b/snippets/lispbox/guess.lisp
@@ -30,7 +30,7 @@ is the number the user is trying to guess."
       (when (= guess number)
         (setf incorrect nil))
       while incorrect))
-  t)
+    number)
 
 (defun begin-number-guessing-game (&key one-shot (maximum 100))
   "If `one-shot' is t, run one round of a number guessing game.