From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from omta35.uswest2.a.cloudfilter.net (omta35.uswest2.a.cloudfilter.net [35.89.44.34]) by sourceware.org (Postfix) with ESMTPS id 3A4153858C31 for ; Sat, 19 Aug 2023 17:49:13 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 3A4153858C31 Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=tromey.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=tromey.com Received: from eig-obgw-5009a.ext.cloudfilter.net ([10.0.29.176]) by cmsmtp with ESMTP id XOuyqpxwIEoVsXQ4WqsLyf; Sat, 19 Aug 2023 17:49:12 +0000 Received: from box5379.bluehost.com ([162.241.216.53]) by cmsmtp with ESMTPS id XQ4VqBLkcL7aTXQ4Vqhgwn; Sat, 19 Aug 2023 17:49:11 +0000 X-Authority-Analysis: v=2.4 cv=RMqgoqu+ c=1 sm=1 tr=0 ts=64e10097 a=ApxJNpeYhEAb1aAlGBBbmA==:117 a=ApxJNpeYhEAb1aAlGBBbmA==:17 a=OWjo9vPv0XrRhIrVQ50Ab3nP57M=:19 a=dLZJa+xiwSxG16/P+YVxDGlgEgI=:19 a=UttIx32zK-AA:10 a=Qbun_eYptAEA:10 a=l6Bby3UTXyCUfikgnw4A:9 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=tromey.com; s=default; h=Content-Transfer-Encoding:MIME-Version:References:In-Reply-To: Message-ID:Date:Subject:Cc:To:From:Sender:Reply-To:Content-Type:Content-ID: Content-Description:Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc :Resent-Message-ID:List-Id:List-Help:List-Unsubscribe:List-Subscribe: List-Post:List-Owner:List-Archive; bh=WbKy3Qmg17cy81jxa8qHe1DI9uUqQDFosfGGG1ZWaX8=; b=UmM35jXBrepBx0GmpB9/k9+LvA 2a/0AT+0d6mXYtxgpzsIoDk+Rm+E/p4CkHplugUA03Gwfbs80cI+DEmSRrLoiUTgGYIHYVgciOXyj aMgBLKBfUk1c8PkyceYKESN3B; Received: from 75-166-142-177.hlrn.qwest.net ([75.166.142.177]:36658 helo=localhost.localdomain) by box5379.bluehost.com with esmtpsa (TLS1.2) tls TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384 (Exim 4.96) (envelope-from ) id 1qXQ4V-003yFg-0V; Sat, 19 Aug 2023 11:49:11 -0600 From: Tom Tromey To: cgen@sourceware.org Cc: Tom Tromey Subject: [RFC 03/14] Remove bound-symbol? Date: Sat, 19 Aug 2023 11:42:02 -0600 Message-ID: <20230819174900.866436-4-tom@tromey.com> X-Mailer: git-send-email 2.41.0 In-Reply-To: <20230819174900.866436-1-tom@tromey.com> References: <20230819174900.866436-1-tom@tromey.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - box5379.bluehost.com X-AntiAbuse: Original Domain - sourceware.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - tromey.com X-BWhitelist: no X-Source-IP: 75.166.142.177 X-Source-L: No X-Exim-ID: 1qXQ4V-003yFg-0V X-Source: X-Source-Args: X-Source-Dir: X-Source-Sender: 75-166-142-177.hlrn.qwest.net (localhost.localdomain) [75.166.142.177]:36658 X-Source-Auth: tom+tromey.com X-Email-Count: 4 X-Org: HG=bhshared;ORG=bluehost; X-Source-Cap: ZWx5bnJvYmk7ZWx5bnJvYmk7Ym94NTM3OS5ibHVlaG9zdC5jb20= X-Local-Domain: yes X-CMAE-Envelope: MS4xfFEZJ5UTalfGOjC5nfTqo7wc+tinozVixD7yO+K3EKnlo20dGcd6pmFDHbZ2F6ndq4eCkq+3hyaL7Q66gxNx9PqZclnvZ5CgbI/DQZiaSzvwJMgD4dI3 dgy9Cx+Kwn78z15Rm3v2hhnXYg0ZraZL7cMKFcCPBnRbUjxcBZeMWN5rxq2u8K5KTgCIqAD8xKW72Q== X-Spam-Status: No, score=-3025.1 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,GIT_PATCH_0,JMQ_SPF_NEUTRAL,RCVD_IN_DNSWL_LOW,RCVD_IN_MSPIKE_BL,RCVD_IN_MSPIKE_L3,SPF_HELO_NONE,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: 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) -- 2.41.0