From 98311329a3b73112acf54280cb55abef321bb2ae Mon Sep 17 00:00:00 2001 From: Robert Dodier Date: Mon, 24 Apr 2023 22:39:35 -0700 Subject: [PATCH] Restore TeX properties at end of rtest6b. Fixes problem reported to mailing list 2023-04-24: "Maxima testsuite fails 2nd time if run twice !" --- tests/rtest6b.mac | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/tests/rtest6b.mac b/tests/rtest6b.mac index 1333d2cf5..1bd2b77d0 100644 --- a/tests/rtest6b.mac +++ b/tests/rtest6b.mac @@ -98,7 +98,7 @@ if bar = map (lambda ([s], ssubst ("ln", "log", s)), foo) then true else bar; true; /* there's no user-level interface for this, and :lisp isn't recognized in test scripts, so ... */ -block([simp:false], ?nconc(?\*tex\-mexpt\-trig\-like\-fns\*, ?list(log)), 0); +block([simp:false], ?\*tex\-mexpt\-trig\-like\-fns\*: ?cons(log, ?\*tex\-mexpt\-trig\-like\-fns\*), 0); 0; baz: map (tex1, [log(x), log(x+1), log(x)^n]); @@ -109,5 +109,12 @@ baz: map (tex1, [log(x), log(x+1), log(x)^n]); map (lambda ([s], ssubst ("ln", "tan", s)), map (tex1, [tan(x), tan(x+1), tan(x)^n])); ''baz; +/* restore TeX properties */ + +(kill (log), + ?pop (?\*tex\-mexpt\-trig\-like\-fns\*), + 0); +0; + (reset (), 0); 0; -- 2.11.4.GIT