1 files changed, 20 insertions, 18 deletions
diff --git a/data/examples/blackjack/cards.fate b/data/examples/blackjack/cards.fate
index b4fa384..4f58c83 100644
--- a/data/examples/blackjack/cards.fate
+++ b/data/examples/blackjack/cards.fate
@@ -11,30 +11,32 @@
 (set! card_generator
    (lambda ( (string family) )
       (list:map
-         (lambda
-            (
-               (int number)
-               (string family)
-            )
-            (struct:set_fields (default #card)
-               (number (var number))
-               (name
-                  (text
-                     (switch (var number)
-                        (1 Ace)
-                        (11 Jack)
-                        (12 Queen)
-                        (13 Kind)
-                        (cast string (var number))
+         (partial
+            (lambda
+               (
+                  (string family)
+                  (int number)
+               )
+               (struct:set_fields (default #card)
+                  (number (var number))
+                  (name
+                     (text
+                        (switch (var number)
+                           (1 Ace)
+                           (11 Jack)
+                           (12 Queen)
+                           (13 Kind)
+                           (cast string (var number))
+                        )
+                        of (var family)
                      )
-                     of (var family)
                   )
+                  (score (clamp 1 number 10))
                )
-               (score (clamp 1 number 10))
             )
+            (var family)
          )
          (list:range 1 13 1)
-         (var family)
       )
    )
 )