[Guile-commits] 02/06: Remove dead code in resolve-interface

[Andy Wingo]

wingo pushed a commit to branch main
in repository guile.

commit 8b324bef745fc3e8bd916894891acbc7858e5b2e
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Thu Jun 20 13:51:59 2024 +0200

    Remove dead code in resolve-interface
    
    * module/ice-9/boot-9.scm (resolve-interface): Remove dead code.
---
 module/ice-9/boot-9.scm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 378ae2457..627910ad9 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -1,6 +1,6 @@
 ;;; -*- mode: scheme; coding: utf-8; -*-
 
-;;;; Copyright (C) 1995-2014, 2016-2023  Free Software Foundation, Inc.
+;;;; Copyright (C) 1995-2014, 2016-2024  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
@@ -3352,9 +3352,7 @@ error if selected binding does not exist in the used 
module."
       (error "no code for module" name))
     (if (and (not select) (null? hide) (eq? renamer identity))
         public-i
-        (let ((selection (or select (module-map (lambda (sym var) sym)
-                                                public-i)))
-              (custom-i (make-module)))
+        (let ((custom-i (make-module)))
           (set-module-kind! custom-i 'custom-interface)
           (set-module-name! custom-i name)
           ;; Check that we are not hiding bindings which don't exist