~subsetpark/whist

7781d354aa8509df4f4c3addc2778d17b1aab35e — Zach Smith 6 months ago 8a11661
Put back no-trumps?
2 files changed, 4 insertions(+), 1 deletions(-)

M bids.janet
M lit/bids.lit
M bids.janet => bids.janet +2 -1
@@ 29,6 29,8 @@

(def second-bids (array/concat @[] direction suit))

(defn- no-trumps? [bid] (= (bid :suit) "no_trumps"))

(defn second-bid
  [bid]
  (if (no-trumps? bid) direction suit))


@@ 43,7 45,6 @@
    (row 1)
    (error (string "Not found: " (string/format "%q" bid) " in " (string/format "%q" source)))))
## Available Bids
(defn- no-trumps? [bid] (= (bid :suit) "no_trumps"))

(defn available-bids
  [&opt high-bid]

M lit/bids.lit => lit/bids.lit +2 -0
@@ 53,6 53,8 @@ suit. For no-trumps bids, the declarer calls the direction.

(def second-bids (array/concat @[] direction suit))

(defn- no-trumps? [bid] (= (bid :suit) "no_trumps"))

(defn second-bid
  [bid]
  (if (no-trumps? bid) direction suit))