* CompileArith.java (getReturnKind): Fix for DIVIDE_GENERIC.

Fixes GitLab issues #68 "JVM crash with split-at".

gnu/kawa/functions/ChangeLog

+2020-03-24  Per Bothner  <per@bothner.com>
+
+	* CompileArith.java (getReturnKind): Fix for DIVIDE_GENERIC.
+	Fixes GitLab issues #68 "JVM crash with split-at".
+
 2020-03-18  Per Bothner  <per@bothner.com>
 
 	* LispRealFormat.java, LispFormat.java:  Support for srfi-48 version

gnu/kawa/functions/CompileArith.java

@@ -463,6 +463,10 @@ public class CompileArith implements Inlineable
   {
     if (op >= ASHIFT_GENERAL && op <= LSHIFT_RIGHT)
       return kind1;
+    if (op == DIVIDE_GENERIC
+        && kind1 > 0 && kind1 <= Arithmetic.INTNUM_CODE
+        && kind2 > 0 && kind2 <= Arithmetic.INTNUM_CODE)
+        return Arithmetic.RATNUM_CODE;
     return getReturnKind2(kind1, kind2);
   }