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'.
This commit is contained in:
parent
041c3c22dc
commit
a05ad01122
@ -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…
Reference in New Issue
Block a user