Browse Source

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

Reported by Jan (janneke) Nieuwenhuizen <janneke@gnu.org>.

* guix/records.scm (define-record-type*): Use
'target-most-positive-fixnum' on Guile 3 instead of 'most-positive-fixnum'.
gn-latest-20200428
Ludovic Courtès 1 year ago
parent
commit
a05ad01122
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
1 changed files with 4 additions and 1 deletions
  1. +4
    -1
      guix/records.scm

+ 4
- 1
guix/records.scm View File

@ -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


Loading…
Cancel
Save