From 5c98118da3018bf8756a1057818b0dce0b08a22a Mon Sep 17 00:00:00 2001
From: Zeno Rogue <zeno@attnam.com>
Date: Fri, 17 Apr 2020 17:44:42 +0200
Subject: [PATCH] gpushxto0 no longer returns an incorrect result in
 nonisotropic

---
 hyperpoint.cpp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/hyperpoint.cpp b/hyperpoint.cpp
index 5d9f2ecd..de0c4dcf 100644
--- a/hyperpoint.cpp
+++ b/hyperpoint.cpp
@@ -702,6 +702,8 @@ EX transmatrix rpushxto0(const hyperpoint& H) {
 
 EX transmatrix ggpushxto0(const hyperpoint& H, ld co) {
   if(translatable) {
+    if(nonisotropic)
+      return co > 0 ? eupush(H) : inverse(eupush(H));
     return eupush(co * H);
     }
   if(prod) {