lispbox: return number in attempt-guess

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.