[Emacs-diffs] scratch/record db34587: Properly restore cl-old-struct-compat-mode after tests.

[Lars Brinkhoff]

branch: scratch/record
commit db34587d9caca5c3f19e5f6cec73f7cee8c2bf94
Author: Lars Brinkhoff <address@hidden>
Commit: Lars Brinkhoff <address@hidden>

    Properly restore cl-old-struct-compat-mode after tests.
---
 test/lisp/emacs-lisp/cl-lib-tests.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/lisp/emacs-lisp/cl-lib-tests.el 
b/test/lisp/emacs-lisp/cl-lib-tests.el
index 8e06945..98c4bd9 100644
--- a/test/lisp/emacs-lisp/cl-lib-tests.el
+++ b/test/lisp/emacs-lisp/cl-lib-tests.el
@@ -513,7 +513,7 @@
     (should (eq (type-of x) 'foo))
     (should (eq (type-of [foo]) 'vector))
 
-    (cl-old-struct-compat-mode saved)))
+    (cl-old-struct-compat-mode (if saved 1 -1))))
 
 (ert-deftest cl-lib-old-struct ()
   (let ((saved cl-old-struct-compat-mode))
@@ -521,6 +521,6 @@
     (cl-struct-define 'foo "" 'cl-structure-object nil nil nil
                       'cl-struct-foo-tags 'cl-struct-foo t)
     (should cl-old-struct-compat-mode)
-    (cl-old-struct-compat-mode saved)))
+    (cl-old-struct-compat-mode (if saved 1 -1))))
 
 ;;; cl-lib.el ends here