From 72099cb0f20e87807f29b5a11a584ab7c66297ef Mon Sep 17 00:00:00 2001
From: "Boris A. Dekshteyn" <boris.dekshteyn@gmail.com>
Date: Sun, 10 May 2020 22:23:18 +1200
Subject: gnu: freecad: Fix build with python-3.8

* gnu/packages/engineering.scm (freecad)[source](modules, snippet): New fields.

Signed-off-by: Marius Bakke <mbakke@fastmail.com>
---
 gnu/packages/engineering.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm
index 15101e3aee..5674c68645 100644
--- a/gnu/packages/engineering.scm
+++ b/gnu/packages/engineering.scm
@@ -2312,6 +2312,15 @@ full programmatic control over your models.")
        (uri (git-reference
              (url "https://github.com/FreeCAD/FreeCAD.git")
              (commit version)))
+       (modules '((guix build utils)))
+       (snippet
+        '(begin
+           ;; Fix build with Python 3.8, see
+           ;; <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
-- 
cgit v1.2.3