From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from eggs.gnu.org (eggs.gnu.org [IPv6:2001:470:142:3::10]) by sourceware.org (Postfix) with ESMTPS id E63FD3858C62 for ; Sun, 20 Aug 2023 08:14:30 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org E63FD3858C62 Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=gnu.org Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=gnu.org Received: from fencepost.gnu.org ([2001:470:142:3::e]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qXdZu-0000sn-JI; Sun, 20 Aug 2023 04:14:30 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org; s=fencepost-gnu-org; h=MIME-Version:Date:References:In-Reply-To:Subject:To: From; bh=h0RE3y2brGfYfnPK9guCwcxMIumVXbKmHe/N+3BUzrY=; b=mtqSDgKtWjem9lpqfi3g GKeChXXQsXHJUbNXdGicq6VP/h5mPANlcedEfkNSAUO77AjpgSSgfHrFkeXWONfZk2pE+XWLBlRfZ sL38O8Y6JYWD5e178gZxNT4/TcoAPdw22AEcwzxPMr/EAG5dM0KIxZa71hDJLUOzSRAewL3PDMciB HyajBauKYFe7INwl5/qK0f6274+psEYMex3xSGbM82k7kQoo0M3BEpAuVA67ywP8rNK/9d3rWk2+U 2QL+iF2j7nvRy/57lR7v7zGimqw8oSD4vKYBNsOuLW6tnSo87FkUiqCNXwt8y7zSbewur4QxTAZ0D Rft2qbZlgO/ySQ==; From: "Jose E. Marchesi" To: Tom Tromey Cc: cgen@sourceware.org Subject: Re: [RFC 03/14] Remove bound-symbol? In-Reply-To: <20230819174900.866436-4-tom@tromey.com> (Tom Tromey's message of "Sat, 19 Aug 2023 11:42:02 -0600") References: <20230819174900.866436-1-tom@tromey.com> <20230819174900.866436-4-tom@tromey.com> Date: Sun, 20 Aug 2023 10:14:20 +0200 Message-ID: <87zg2mqgf7.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Status: No, score=-6.9 required=5.0 tests=BAYES_00,DKIMWL_WL_HIGH,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,GIT_PATCH_0,SPF_HELO_PASS,SPF_PASS,TXREP autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: OK. Thanks. > bound-symbol? is not used, remove it. > --- > utils.scm | 13 ------------- > 1 file changed, 13 deletions(-) > > diff --git a/utils.scm b/utils.scm > index 330880b..616065b 100644 > --- a/utils.scm > +++ b/utils.scm > @@ -465,19 +465,6 @@ > (backslash chars (cdr str))))) > ) > > -; Return a boolean indicating if S is bound to a value. > -;(define old-symbol-bound? symbol-bound?) > -;(define (symbol-bound? s) (old-symbol-bound? #f s)) > - > -; Return a boolean indicating if S is a symbol and is bound to a value. > - > -(define (bound-symbol? s) > - (and (symbol? s) > - (or (symbol-bound? #f s) > - ;(module-bound? cgen-module s) > - )) > -) > - > ; Return X. > > (define (identity x) x)