[nongnu] elpa/geiser-kawa 55efc48 043/119: Fix non-passing Autodoc test

[Philip Kaludercic]

branch: elpa/geiser-kawa
commit 55efc48268c3e73d1b7921e4780eb6b016ccb5dc
Author: spellcard199 <spellcard199@protonmail.com>
Commit: spellcard199 <spellcard199@protonmail.com>

    Fix non-passing Autodoc test
---
 src/test/java/kawageiser/GeiserAutodocTest.java | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/test/java/kawageiser/GeiserAutodocTest.java 
b/src/test/java/kawageiser/GeiserAutodocTest.java
index 526f526..564447b 100644
--- a/src/test/java/kawageiser/GeiserAutodocTest.java
+++ b/src/test/java/kawageiser/GeiserAutodocTest.java
@@ -5,6 +5,7 @@
 
 package kawageiser;
 
+import gnu.expr.Language;
 import gnu.lists.LList;
 import gnu.mapping.Environment;
 import gnu.mapping.Symbol;
@@ -23,10 +24,10 @@ public class GeiserAutodocTest {
         Environment env = scheme.getEnvironment();
         Symbol displaySym = env.getSymbol("display");
         Symbol cdddrSym = env.getSymbol("cdddr");
+        Language saveLang = Language.setSaveCurrent(scheme);
         String autodocDisplay = GeiserAutodoc.autodoc(LList.list1(displaySym), 
env);
         String autodocCdddr = GeiserAutodoc.autodoc(LList.list1(cdddrSym), 
env);
-
-        // System.out.println(autodocDisplay);
+        Language.restoreCurrent(saveLang);
 
         assertTrue(autodocDisplay.startsWith("((\"display\""));
         assertTrue(autodocDisplay.contains(" (\"args\" "));