diff options
| author | Mario Lang <mlang@delysid.org> | 2004-01-09 07:43:40 +0000 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2004-01-09 07:43:40 +0000 |
| commit | dbe183e62fb118820283919bf7e7171142cdfeb9 (patch) | |
| tree | 714337451b824b6e9cb52bf203ec98c1d0921431 | |
| parent | a0a3564fd2f3d80edfe0932bc85a5517d14685fb (diff) | |
use `chess-var-to-algebraic'.
| -rw-r--r-- | chess-epd.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/chess-epd.el b/chess-epd.el index 4b31425..294f0a0 100644 --- a/chess-epd.el +++ b/chess-epd.el @@ -3,7 +3,6 @@ ;; Copyright (C) 2004 Free Software Foundation, Inc. ;; Author: Mario Lang <mlang@delysid.org> -;; Keywords: ;; This file is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -39,10 +38,7 @@ (format "%S %d;" opcode value)) ((eq opcode 'pv) (format "%S %s;" - opcode (mapconcat #'chess-ply-to-string - (reverse (cdr - (reverse (chess-var-plies value)))) - " "))) + opcode (chess-var-to-algebraic value))) (t (format "%S%s;" opcode (if (eq value t) "" (format " %s" value))))))) |