From bd0bd1965bbc3a18c0f5a218e417778c295bdd1f Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 16 Apr 2002 02:43:19 +0000 Subject: Major speed improvement and efficiency work. chess-legal-plies is much more memory conservative now. Reduced recursion in chess-search-position by a slight bit. --- chess-algebraic.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'chess-algebraic.el') diff --git a/chess-algebraic.el b/chess-algebraic.el index 17d4fcc..62ccf0f 100644 --- a/chess-algebraic.el +++ b/chess-algebraic.el @@ -113,12 +113,10 @@ This regexp handles both long and short form.") (if promotion (nconc changes (list :promote (aref promotion 0)))))) - (when trust - (if mate - (nconc changes (list (if (equal mate "#") :checkmate :check)))) - (nconc changes (list :valid))) + (if (and trust mate) + (nconc changes (list (if (equal mate "#") :checkmate :check)))) - (or ply (apply 'chess-ply-create position changes))))) + (or ply (apply 'chess-ply-create position trust changes))))) (defun chess-ply-to-algebraic (ply &optional long) "Convert the given PLY to algebraic notation. -- cgit v1.2.3