diff options
| -rw-r--r-- | chess-maint.el | 8 | ||||
| -rw-r--r-- | chess-message.el | 2 |
2 files changed, 7 insertions, 3 deletions
diff --git a/chess-maint.el b/chess-maint.el index 2854507..5a9b65b 100644 --- a/chess-maint.el +++ b/chess-maint.el @@ -1,13 +1,17 @@ (add-to-list 'load-path ".") -(require 'cl) +(require 'pp) (require 'chess) (require 'chess-pgn) +(defmacro assert (form) + (unless (byte-compiling-files-p) + `(unless ,form + (error "Assertion failed: %s" (pp-to-string ,form))))) + (defun chess-generate-texinfo-file () (require 'lispdoc) (require 'texinfo) - (require 'pp) (with-temp-buffer (insert-file-contents-literally "chess.texi") (texinfo-mode) diff --git a/chess-message.el b/chess-message.el index 9723283..587f197 100644 --- a/chess-message.el +++ b/chess-message.el @@ -23,7 +23,7 @@ (let ((str (assq (car def) (cdr entry)))) (if str (setcdr str (cdr def)) - (push def (cdr entry))))) + (setcdr entry (cons def (cdr entry)))))) (push (cons catalog definitions) chess-message-catalog)))) (defun chess-string (key &rest arguments) |