atoms.lisp: Allow a single player.

[atoms] / atoms.lisp

diff --git a/atoms.lisp b/atoms.lisp
index fa65755b3b179223be8f2035f6bbd7b7c4ee72f0..77329cf7841a466e1496bebb6d3e2d3023667cac 100644 (file)
--- a/atoms.lisp
+++ b/atoms.lisp
@@ -294,7 +294,7 @@ (defmethod game-update-scores (game)
                 (incf remaining)
                 (setf found player)))))
       (changed game :scores :players players)
-      (when (= remaining 1)
+      (when (and (= remaining 1) (>= (length players) 2))
        (setf (player-state found) :winning)
        (changed game :finished :victor found)))))
 
@@ -742,7 +742,7 @@ (defclass new-game-dialogue (gtk:dialog)
                                               :step-increment 1))
    (count-adjustment :type gtk:adjustment
                     :initform (make-instance 'gtk:adjustment
-                                             :lower 2 :upper 20
+                                             :lower 1 :upper 20
                                              :step-increment 1))
    (players :type gtk:list-store
            :initform (make-instance 'gtk:list-store