03/04: records: Have ABI check work well for cross-compilation.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit a05ad011229cf3712d373918c2ed9ebdb5f5b2a2
Author: Ludovic Courtès <address@hidden>
AuthorDate: Tue Apr 7 23:55:14 2020 +0200

    records: Have ABI check work well for cross-compilation.
    
    Reported by Jan (janneke) Nieuwenhuizen <address@hidden>.
    
    * guix/records.scm (define-record-type*): Use
    'target-most-positive-fixnum' on Guile 3 instead of 'most-positive-fixnum'.
---
 guix/records.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/guix/records.scm b/guix/records.scm
index 4bda542..3d54a51 100644
--- a/guix/records.scm
+++ b/guix/records.scm
@@ -24,6 +24,7 @@
   #:use-module (ice-9 match)
   #:use-module (ice-9 regex)
   #:use-module (ice-9 rdelim)
+  #:autoload (system base target) (target-most-positive-fixnum)
   #:export (define-record-type*
             this-record
 
@@ -360,7 +361,9 @@ inherited."
         (((field get properties ...) ...)
          (string-hash (object->string
                        (syntax->datum #'((field properties ...) ...)))
-                      most-positive-fixnum))))
+                      (cond-expand
+                        (guile-3 (target-most-positive-fixnum))
+                        (else most-positive-fixnum))))))
 
     (syntax-case s ()
       ((_ type syntactic-ctor ctor pred