gnu: Add rayforge.

* gnu/packages/engineering.scm (rayforge): New variable.

Change-Id: I13550eef3f42b0354d2cffe1c6e4324cdedcdbd5

gnu/packages/engineering.scm

@@ -2298,8 +2298,8 @@ it suitable for security research and analysis.")
              "abstract method '?reconcile'?"))
           ; Fix arc fitting test - add looser tolerance for floating point comparison
           (substitute* "tests/core/geo/test_fitting.py"
-            (("assert np\\.allclose\\(\\(cmd\\[COL_I\\], cmd\\[COL_J\\]\\), \\(-10\\.0, 0\\.0\\)\\)")
+            ( ("(assert np\\.allclose\\(.*, \\(-10\\.0, 0\\.0\\))" match)
-             "assert np.allclose((cmd[COL_I], cmd[COL_J]), (-10.0, 0.0), atol=1e-3)"))))
+              (string-append match ", atol=1e-3")))))
         (delete 'sanity-check) ; Tests against python package version of rayforge
         (add-after 'wrap 'wrap-rayforge
           (lambda _

gnu/packages/guile-xyz.scm

@@ -7368,8 +7368,8 @@ is an attempt to combine both into something useful.")
       (license license:asl2.0))))
 
 (define-public guile-knots
-  (let ((commit "a8e07b738b558d701c6de1f5ee6452ee4095198e")
+  (let ((commit "35f4c16ab0b3846cd10f5209b39a6a3f5bf8a3f1")
-        (revision "28"))
+        (revision "29"))
     (package
     (name "guile-knots")
     (version (git-version "0" revision commit))
@@ -7380,7 +7380,7 @@ is an attempt to combine both into something useful.")
                     (commit commit)))
               (sha256
                (base32
-                "13cc81pnjw55y1p8v6zvbk46bsf0snwbk3fkg3xh9girl9z5krj3"))
+                "0zd4k5c0v4rdbhlb6fwa51v53s8rs8xjrznvdnw3yhkpiy66x1ki"))
               (file-name (git-file-name name version))))
     (build-system gnu-build-system)
     (native-inputs
@@ -7394,12 +7394,12 @@ is an attempt to combine both into something useful.")
      (list guile-next))
     (propagated-inputs
      (list guile-fibers-next))
-    (home-page "https://forge.cbaines.net/cbaines/guile-knots")
+    (home-page "https://cbaines.codeberg.page/guile-knots/")
     (synopsis "Patterns and functionality to use with Guile Fibers")
     (description
      "Guile Knots is a collection of patterns and functionality that is useful
 when using Guile Fibers.  This includes higher level concurrency utilities,
-support for timeouts and an alternative web server implementation.")
+support for timeouts and a web server.")
     (license license:gpl3+))))
 
 (define-public guile-kolam

gnu/packages/package-management.scm

@@ -1926,8 +1926,8 @@ environments.")
                   "153bgcjqw6jp0yl0vj0k67k9c8lw82vac6b0cnacrjrcb24lcpdq")))))))
 
 (define-public guix-build-coordinator
-  (let ((commit "88b0416678771f3e47901f184e11249ff9cce845")
+  (let ((commit "a1c18b175ecd7f42336de555746824ec003b600b")
-        (revision "135"))
+        (revision "136"))
     (package
       (name "guix-build-coordinator")
       (version (git-version "0" revision commit))
@@ -1938,7 +1938,7 @@ environments.")
                       (commit commit)))
                 (sha256
                  (base32
-                  "1jgcywldqkm0zjvp9z6xrfpzjvz914rrc2gwc6an3iq5yg0bi7mz"))
+                  "1adpr1s5c6s1sk5vbph2275v5fnz8mqh0s7ynvpdxag93rfczrjz"))
                 (file-name (string-append name "-" version "-checkout"))))
       (build-system gnu-build-system)
       (arguments
@@ -2181,8 +2181,8 @@ in an isolated environment, in separate namespaces.")
     (license license:gpl3+)))
 
 (define-public nar-herder
-  (let ((commit "8a99247d1868ce75cd1c5409090450fd17543c72")
+  (let ((commit "24c1914efa9d65c629e8d2d06e1f98afa4219400")
-        (revision "50"))
+        (revision "51"))
     (package
       (name "nar-herder")
       (version (git-version "0" revision commit))
@@ -2193,7 +2193,7 @@ in an isolated environment, in separate namespaces.")
                       (commit commit)))
                 (sha256
                  (base32
-                  "1mkzb8sq7l4xh8pri4d0pqxby4har2yhmhxdy9frdbrbrfapjpqx"))
+                  "178c7l27m76snqnsn4rk1hylibr5fh8h7bch8xpcfa7y4xicf8jr"))
                 (file-name (string-append name "-" version "-checkout"))))
       (build-system gnu-build-system)
       (arguments