From a32ddbb4f5661c09761a207e9bd71d202d23dc48 Mon Sep 17 00:00:00 2001
From: Zeno Rogue <zeno@attnam.com>
Date: Tue, 6 May 2025 14:13:32 +0200
Subject: [PATCH] gp:: pattern value for INVERSE

---
 goldberg.cpp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/goldberg.cpp b/goldberg.cpp
index 689c0ee1..3081c31c 100644
--- a/goldberg.cpp
+++ b/goldberg.cpp
@@ -1423,6 +1423,13 @@ EX namespace gp {
         }
       return C0;
       }
+
+    int pattern_value(cell *c) override {
+      println(hlog, "here");
+      auto c1 = get_mapped(c, 0);
+      return UIU(currentmap->pattern_value(c1));
+      println(hlog, "done");
+      }
     };
 
   EX hrmap* new_inverse() { return new hrmap_inverse; }