From 050e329f2a2e2367c2e4f1965190b0f6a5addf29 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Sat, 4 Sep 2021 22:26:09 +0200 Subject: The blackjack example works again. --- data/examples/blackjack/cards.fate | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'data/examples/blackjack/cards.fate') diff --git a/data/examples/blackjack/cards.fate b/data/examples/blackjack/cards.fate index 6868650..7245436 100644 --- a/data/examples/blackjack/cards.fate +++ b/data/examples/blackjack/cards.fate @@ -10,13 +10,13 @@ (set! card_generator (lambda ( (string family) ) - (map + (list:map (lambda ( (int number) (string family) ) - (set_fields (default card) + (struct:set_fields (default card) (number (var number)) (name (text @@ -33,7 +33,7 @@ (score (clamp 1 number 10)) ) ) - (range 1 13 1) + (list:range 1 13 1) (var family) ) ) @@ -41,10 +41,10 @@ (global (list card) deck_template) -(add_all! (eval card_generator Hearts) deck_template) -(add_all! (eval card_generator Spades) deck_template) -(add_all! (eval card_generator Diamonds) deck_template) -(add_all! (eval card_generator Clubs) deck_template) +(list:add_all! (eval card_generator Hearts) deck_template) +(list:add_all! (eval card_generator Spades) deck_template) +(list:add_all! (eval card_generator Diamonds) deck_template) +(list:add_all! (eval card_generator Clubs) deck_template) (define_sequence compute_score (((ptr (list card)) deck) ((ptr int) result)) (local int aces_count) -- cgit v1.2.3-70-g09d2