From bd5fd411691410d2ddb37f108810353b725eb0b1 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Fri, 24 Dec 2021 15:08:51 +0100
Subject: Removes 'new' Wyrd instruction.

---
 data/examples/blackjack/cards.fate | 38 ++++++++++++++++++++------------------
 1 file changed, 20 insertions(+), 18 deletions(-)

(limited to 'data/examples')

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)
       )
    )
 )
-- 
cgit v1.2.3-70-g09d2