Gentoo Websites Logo
Go to: Gentoo Home Documentation Forums Lists Bugs Planet Store Wiki Get Gentoo!
View | Details | Raw Unified | Return to bug 46738
Collapse All | Expand All

(-)agnes-old.scm (-1 / +1 lines)
Lines 225-231 Link Here
225 
	((or (not (is-visible? (car (reverse card-list))))
 225 
	((or (not (is-visible? (car (reverse card-list))))
226 
;	     (eq? (is-red? (car (reverse card-list)))
 226 
;	     (eq? (is-red? (car (reverse card-list)))
227 
;		  (is-black? (car card-list)))
 227 
;		  (is-black? (car card-list)))
228 
	     (not (check-same-color(card-list)))
 228 
	     (not (check-same-color-list card-list))
229 
	     (not (check-straight-descending-list card-list)))
 229 
	     (not (check-straight-descending-list card-list)))
230 
	 (strip (reverse (cdr (reverse card-list)))))
 230 
	 (strip (reverse (cdr (reverse card-list)))))
231 
	(#t (car (reverse card-list)))))
 231 
	(#t (car (reverse card-list)))))

Return to bug 46738