From c1be708422af28ae0515b71ebadac0c9e1a8793b Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Fri, 22 Mar 2013 22:34:41 +0000 Subject: [PATCH] atoms.lisp: Allow a single player. He can't win, but that's OK. It still allows some experimentation with the rules. --- atoms.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/atoms.lisp b/atoms.lisp index fa65755..77329cf 100644 --- a/atoms.lisp +++ b/atoms.lisp @@ -294,7 +294,7 @@ (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 @@ :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 -- 2.11.0