Commit 619ddb34 authored by Callum McKenzie's avatar Callum McKenzie

Audit of all uses of get-base-string in aisleriot.

parent 1cf4c5dd
2005-07-10 Callum McKenzie <callum@physics.otago.ac.nz>
* rules/plait.scm (get-base-
* rules/plait.scm (get-base-string):
* rules/lady_jane.scm (get-base-string):
* rules/kansas.scm (get-base-string):
* rules/eagle_wing.scm (get-base-string):
......
......@@ -75,7 +75,7 @@
(_"Base Card: Queen"))
((= BASE-VAL 13)
(_"Base Card: King"))
(#t #f)))
(#t "")))
(define (get-stock-no-string)
(if (> (length (get-cards 0)) 1)
......
......@@ -85,7 +85,7 @@
(_"Base Card: Queen"))
((= BASE-VAL 13)
(_"Base Card: King"))
(#t #f)))
(#t "")))
(define (button-pressed slot-id card-list)
(cond ((= slot-id 0)
......
......@@ -98,7 +98,7 @@
(_"Base Card: Queen"))
((= BASE-VAL 13)
(_"Base Card: King"))
(#t #f)))
(#t "")))
(define (button-pressed slot-id card-list)
(and (not (empty-slot? slot-id))
......
......@@ -102,7 +102,7 @@
(_"Base Card: Queen"))
((= BASE-VAL 13)
(_"Base Card: King"))
(#t #f)))
(#t "")))
(define (get-redeals-string)
(string-append (_"Redeals left:") " "
......
......@@ -86,7 +86,7 @@
(_"Base Card: Queen"))
((= BASE-VAL 13)
(_"Base Card: King"))
(#t #f)))
(#t "")))
(define (button-pressed slot-id card-list)
(and (not (= (length card-list) 0))
......
......@@ -109,7 +109,7 @@
(_"Base Card: Queen"))
((= BASE-VAL 13)
(_"Base Card: King"))
(#t #f)))
(#t "")))
(define (get-stock-no-string)
(if (> (length (get-cards 0)) 1)
......
......@@ -248,7 +248,7 @@
(_"Base Card: Queen"))
((= start-value 13)
(_"Base Card: King"))
(#t #f)))
(#t "")))
(define (get-redeals-string)
(string-append (_"Redeals left:") " "
......
......@@ -84,7 +84,7 @@
(_"Base Card: Queen"))
((= BASE-VAL 13)
(_"Base Card: King"))
(#t #f)))
(#t "")))
(define (button-pressed slot-id card-list)
(and (not (empty-slot? slot-id))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment