From 2323b5e0ed564c215741c869da4b487d56b76502 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Sat, 15 Feb 2025 15:04:59 +0000
Subject: Small changes

---
 src/model.lisp | 4 ++--
 tasks.org      | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/model.lisp b/src/model.lisp
index 7cb1792..ffa1a4a 100644
--- a/src/model.lisp
+++ b/src/model.lisp
@@ -30,11 +30,11 @@
 
 (deftype int-card () `(integer 0 51))
 
+(deftype cardset () `(and list (satisfies cardsetp)))
+
 (fn cardsetp (lst) (-> (list) boolean)
   (every #'(lambda (x) (typep x 'card)) lst))
 
-(deftype cardset () `(and list (satisfies cardsetp)))
-
 (fn int->suit (n) (-> (int-card) suit)
   (case (floor n 13)
     (0 :Diamonds)
diff --git a/tasks.org b/tasks.org
index f5b0161..59a3c29 100644
--- a/tasks.org
+++ b/tasks.org
@@ -9,7 +9,7 @@
 
 We need to deal with folds in rounds (1) and (3).
 
-** TODO MVP: Simulate without financing
+** WIP MVP: Simulate without financing
 ** TODO Financing
 Each game has:
 + Small and big blind
-- 
cgit v1.2.3-13-gbd6f