mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

Remove dead code in resolve-interface

Browse source 
* module/ice-9/boot-9.scm (resolve-interface): Remove dead code.
This commit is contained in:
Andy Wingo 2024-06-20 13:51:59 +02:00
parent ddc5e63b00
commit 8b324bef74
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/ice-9/boot-9.scm
View file

@ -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