diff options
| author | Mario Lang <mlang@delysid.org> | 2014-05-20 03:25:59 +0200 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2014-05-20 03:25:59 +0200 |
| commit | 8f0f2044b5445722aff29a0c58461a794564f13a (patch) | |
| tree | 0b2a8af14062b02a16e439125c8738cbcea67765 /chess-fen.el | |
| parent | 940fce2ade6a25bf4462330f2feea8ef5a39906f (diff) | |
Eliminate the circular dependency between chess-pos and chess-fen.
We remove functions chess-pos-to-string and chess-pos-from-string which
are really just aliases for chess-fen-to-pos and chess-pos-to-fen.
Diffstat (limited to 'chess-fen.el')
| -rw-r--r-- | chess-fen.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/chess-fen.el b/chess-fen.el index 568e461..001c2c4 100644 --- a/chess-fen.el +++ b/chess-fen.el @@ -57,6 +57,7 @@ ;;; Code: +(require 'chess-pos) (eval-when-compile (require 'cl-lib)) (defconst chess-fen-regexp @@ -64,7 +65,7 @@ (defun chess-fen-to-pos (fen) "Convert a FEN-like notation string to a chess position." - (assert (stringp fen)) + (cl-assert (stringp fen)) (let ((i 0) (l (length fen)) (rank 0) (file 0) (c ?0) (position (chess-pos-create t)) @@ -117,7 +118,7 @@ (defun chess-pos-to-fen (position &optional full) "Convert a chess POSITION to FEN-like notation. If FULL is non-nil, represent trailing spaces as well." - (assert (vectorp position)) + (cl-assert (vectorp position)) (let ((blank 0) (str "") output) (dotimes (rank 8) (dotimes (file 8) |