summaryrefslogtreecommitdiff
path: root/module/rnrs/records/procedural.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/rnrs/records/procedural.scm')
-rw-r--r--module/rnrs/records/procedural.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/module/rnrs/records/procedural.scm b/module/rnrs/records/procedural.scm
index 9eb0934eb..e5a154c29 100644
--- a/module/rnrs/records/procedural.scm
+++ b/module/rnrs/records/procedural.scm
@@ -1,6 +1,6 @@
;;; procedural.scm --- Procedural interface to R6RS records
-;; Copyright (C) 2010, 2017 Free Software Foundation, Inc.
+;; Copyright (C) 2010, 2017, 2019-2020 Free Software Foundation, Inc.
;;
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
@@ -53,6 +53,7 @@
(define (make-record-type-descriptor name parent uid sealed? opaque? fields)
(make-record-type name (vector->list fields) #:parent parent #:uid uid
#:extensible? (not sealed?)
+ #:allow-duplicate-field-names #t
#:opaque? (or opaque?
(and parent (record-type-opaque? parent)))))