wingo pushed a commit to branch main
in repository guile.
commit 7fef214f6e0df4004020fec530e808c476f2d2bf
Author: Andy Wingo <wi...@pobox.com>
AuthorDate: Sun Mar 17 09:52:49 2024 +0100
Remove vestigial code from srfi-9
* module/srfi/srfi-9.scm (%define-record-type): No need to define
record-layout.
---
module/srfi/srfi-9.scm | 8 +-------
1 file changed, 1 insertion(+), 7 deletions(-)
diff --git a/module/srfi/srfi-9.scm b/module/srfi/srfi-9.scm
index 1f1f5e4af..4a6076ea5 100644
--- a/module/srfi/srfi-9.scm
+++ b/module/srfi/srfi-9.scm
@@ -1,6 +1,6 @@
;;; srfi-9.scm --- define-record-type
-;; Copyright (C) 2001-2002, 2006, 2008-2014, 2018-2019, 2023
+;; Copyright (C) 2001-2002,2006,2008-2014,2018-2019,2023-2024
;; Free Software Foundation, Inc.
;;
;; This library is free software; you can redistribute it and/or
@@ -274,11 +274,6 @@
field-specs
(iota (length field-specs))))
- (define (record-layout immutable? count)
- ;; Mutability is expressed on the record level; all structs in the
- ;; future will be mutable.
- (string-concatenate (make-list count "pw")))
-
(syntax-case x ()
((_ immutable? form type-name constructor-spec predicate-name
field-spec ...)
@@ -308,7 +303,6 @@
(getter-ids (getter-identifiers #'(field-spec ...)))
(field-count (length field-ids))
(immutable? (syntax->datum #'immutable?))
- (layout (record-layout immutable? field-count))
(ctor-name (syntax-case #'constructor-spec ()
((ctor args ...) #'ctor)))
(copier-id (make-copier-id #'type-name)))
