diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-04-07 23:55:14 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-04-08 00:05:45 +0200 |
| commit | a05ad011229cf3712d373918c2ed9ebdb5f5b2a2 (patch) | |
| tree | 3f9a3fd3b8e758f739057053182317895ce77e8b | |
| parent | 041c3c22dc14d485ca58b3ae1436b62d4a39d0aa (diff) | |
| download | guix-a05ad011229cf3712d373918c2ed9ebdb5f5b2a2.tar guix-a05ad011229cf3712d373918c2ed9ebdb5f5b2a2.tar.gz | |
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'.
| -rw-r--r-- | guix/records.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/records.scm b/guix/records.scm index 4bda5426a3..3d54a51956 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 |