[bug#43613] compiling 1.1.0 from sources on linux with guile 3

[Yury Tarasievich <yury.tarasievich@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 834 bytes --]

Hello,

Had an issue with compiling 1.1.0 from source on
linux (64-bit slackware, almost current) with
guile 3.0.4.

First thing, it couldn't find guild with the
default configure template. I had to add a
kludge (configure.ac.diff, attached).

Then, it wouldn't compile some files in guix/
subdir. The diagnostics went like this in each case:

WARNING: (guix swh): `define-json-mapping'
imported from both (guix json) and (json)
WARNING: (guix swh): `define-json-mapping'
imported from both (guix json) and (json)
ice-9/eval.scm:293:34: error:
define-json-mapping: unbound variable
hint: Did you forget `(use-modules (json record))'?

I took the compiler's suggestion and added
'(use-modules (json record))'. Have no idea how
that works.
I'm attaching the patch for that
compilation_define-json-mapping.diff.

Hope that helps.

-Yury

[-- Attachment #2: configure.ac.diff --]
[-- Type: text/x-patch, Size: 513 bytes --]

--- configure.ac.prev	2020-03-11 20:42:09.000000000 +0300
+++ configure.ac	2020-09-24 22:20:05.999398242 +0300
@@ -96,7 +96,10 @@
 GUILE_PKG([3.0 2.2])
 GUILE_PROGS
 if test "x$GUILD" = "x"; then
-   AC_MSG_ERROR(['guild' binary not found; please check your Guile installation.])
+  GUILD="`pkg-config guile-3.0 --variable=guild`"
+  if test "x$GUILD" = "x"; then
+    AC_MSG_ERROR(['guild' binary not found; please check your Guile installation.])
+  fi
 fi
 
 if test "x$GUILE_EFFECTIVE_VERSION" = "x2.2"; then

[-- Attachment #3: compilation_define-json-mapping.diff --]
[-- Type: text/x-patch, Size: 1534 bytes --]

--- guix/import/crate.scm.prev	2020-03-24 17:44:45.000000000 +0300
+++ guix/import/crate.scm	2020-09-24 23:16:07.076901808 +0300
@@ -52,6 +52,7 @@
 ;; Crates.  A crate is essentially a "package".  It can have several
 ;; "versions", each of which has its own set of dependencies, license,
 ;; etc.--see <crate-version> below.
+(use-modules (json record))
 (define-json-mapping <crate> make-crate crate?
   json->crate
   (name          crate-name)                      ;string
--- guix/swh.scm.prev	2020-03-10 22:19:30.000000000 +0300
+++ guix/swh.scm	2020-09-24 23:11:45.910912646 +0300
@@ -251,6 +251,7 @@
        docstring
        (call (swh-url components ...) json->value)))))
 
+(use-modules (json record))
 ;; <https://archive.softwareheritage.org/api/1/origin/https://github.com/guix-mirror/guix/get>
 (define-json-mapping <origin> make-origin origin?
   json->origin
--- guix/cve.scm.prev	2019-10-23 17:40:23.000000000 +0300
+++ guix/cve.scm	2020-09-24 23:12:16.596911372 +0300
@@ -70,6 +70,7 @@
 (define (string->date* str)
   (string->date str "~Y-~m-~dT~H:~M~z"))
 
+(use-modules (json record))
 (define-json-mapping <cve-item> cve-item cve-item?
   json->cve-item
   (cve            cve-item-cve "cve" json->cve)   ;<cve>
--- guix/ci.scm.prev	2020-03-31 15:55:42.000000000 +0300
+++ guix/ci.scm	2020-09-24 23:08:53.074919818 +0300
@@ -52,6 +52,8 @@
 ;;;
 ;;; Code:
 
+(use-modules (json record))
+
 (define-json-mapping <build> make-build build?
   json->build
   (id          build-id "id")                     ;integer