[Guile-commits] 04/06: Remove vestigial code from srfi-9

[Andy Wingo]

wingo pushed a commit to branch main
in repository guile.

commit 7fef214f6e0df4004020fec530e808c476f2d2bf
Author: Andy Wingo <wingo@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)))