[bug#41170] [PATCH] gnu: freecad: Fix build with python-3.8

[Boris A. Dekshteyn]

* gnu/packages/engineering.scm (freecad): Fix build with python-3.8
---
 gnu/packages/engineering.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm
index 15101e3aee..5e204201bd 100644
--- a/gnu/packages/engineering.scm
+++ b/gnu/packages/engineering.scm
@@ -2312,6 +2312,13 @@ full programmatic control over your models.")
        (uri (git-reference
              (url "https://github.com/FreeCAD/FreeCAD.git";)
              (commit version)))
+       (modules '((guix build utils)))
+       (snippet
+        '(begin
+           ;; https://tracker.freecadweb.org/view.php?id=4143
+           (substitute* "src/Base/swigpyrun.inl"
+             (("PyObject \\*modules = interp->modules;")
+               "PyObject *modules = PyEval_GetBuiltins();")) #t))
        (file-name (git-file-name name version))
        (sha256
         (base32
-- 
2.26.2