diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-16 02:43:19 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-16 02:43:19 +0000 |
| commit | bd0bd1965bbc3a18c0f5a218e417778c295bdd1f (patch) | |
| tree | c58096b7b958fedf501f98b5cf46c88c723861f7 /chess-algebraic.el | |
| parent | 40eddef43dfde4f1f14101e1f3bbc0d4621c8a37 (diff) | |
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.
Diffstat (limited to 'chess-algebraic.el')
| -rw-r--r-- | chess-algebraic.el | 8 |
1 files changed, 3 insertions, 5 deletions
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. |