summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'data/examples/blackjack/cards.fate')
-rw-r--r--data/examples/blackjack/cards.fate12
1 files changed, 5 insertions, 7 deletions
diff --git a/data/examples/blackjack/cards.fate b/data/examples/blackjack/cards.fate
index f9c734f..b4fa384 100644
--- a/data/examples/blackjack/cards.fate
+++ b/data/examples/blackjack/cards.fate
@@ -1,12 +1,12 @@
(fate_version 1)
-(declare_structure card
+(declare_structure #card
(text name)
(int number)
(int score)
)
-(local (lambda (list card) (string)) card_generator)
+(local (lambda (list #card) (string)) card_generator)
(set! card_generator
(lambda ( (string family) )
@@ -16,7 +16,7 @@
(int number)
(string family)
)
- (struct:set_fields (default card)
+ (struct:set_fields (default #card)
(number (var number))
(name
(text
@@ -39,7 +39,7 @@
)
)
-(global (list card) deck_template)
+(global (list #card) deck_template)
(list:add_all!
(eval card_generator Hearts)
@@ -49,9 +49,7 @@
deck_template
)
-
-
-(define_sequence compute_score (((ptr (list card)) deck) ((ptr int) result))
+(define_sequence compute_score (((ptr (list #card)) deck) ((ptr int) result))
(local int aces_count 0)
(local int maybe_better_score 0)