From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from omta39.uswest2.a.cloudfilter.net (omta39.uswest2.a.cloudfilter.net [35.89.44.38]) by sourceware.org (Postfix) with ESMTPS id 6A3403858408 for ; Sat, 19 Aug 2023 17:49:13 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 6A3403858408 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-6005a.ext.cloudfilter.net ([10.0.30.201]) by cmsmtp with ESMTP id XM2DqDYswbK1VXQ4WqLyAg; Sat, 19 Aug 2023 17:49:12 +0000 Received: from box5379.bluehost.com ([162.241.216.53]) by cmsmtp with ESMTPS id XQ4Vqc21lWlkNXQ4VqPAFF; Sat, 19 Aug 2023 17:49:11 +0000 X-Authority-Analysis: v=2.4 cv=IeyU5Ema 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=5KLPUuaC_9wA:10 a=xVwRAC4pK8xqKZhDdMIA: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=or1nMb/MQ72+pPrQF3Gum5ATTLTPDJupZc/hmj6XFGg=; b=fK+IHiIj9MYA06wE3+RkI/Nv4t JK3AjMBV/UGXisMMT+zufP++Pys9Bz5fX8q72513G3bSn1lGrS5HHtNqsM4V3opDgiAMiJcRJSvKt uEon3lOk1RMQGoJhjnSGySOmS; 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-15; Sat, 19 Aug 2023 11:49:11 -0600 From: Tom Tromey To: cgen@sourceware.org Cc: Tom Tromey Subject: [RFC 04/14] =?UTF-8?q?Remove=20=3D=3F=20and=20>=3D=3F=20aliases?= Date: Sat, 19 Aug 2023 11:42:03 -0600 Message-ID: <20230819174900.866436-5-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-15 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: 5 X-Org: HG=bhshared;ORG=bluehost; X-Source-Cap: ZWx5bnJvYmk7ZWx5bnJvYmk7Ym94NTM3OS5ibHVlaG9zdC5jb20= X-Local-Domain: yes X-CMAE-Envelope: MS4xfKvMmaYX1NspyFCpiQxXIMuI2Z8Tsl7MvnemiBJXy8I6+z+H9PKoZMW0cSSnb/hLXuYLdudiD3DH8o9cRoPqiq08s6REiIlRUInk1dr22Opm9PYejJrW 4CK2pqVLv87FVwAvhAPQVKJ4jBp9oA3vt7z/NLCwvUE/r65pChdEilDZfsjvFlEyNSafO9/bg+/4eg== X-Spam-Status: No, score=-3024.8 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,GIT_PATCH_0,JMQ_SPF_NEUTRAL,RCVD_IN_MSPIKE_H2,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: =? and >=? are aliases for = and >=. Remove these and update the few users. --- enum.scm | 2 +- guile.scm | 4 ---- opcodes.scm | 4 ++-- sim-test.scm | 4 ++-- 4 files changed, 5 insertions(+), 9 deletions(-) diff --git a/enum.scm b/enum.scm index 1faeb5f..5390e08 100644 --- a/enum.scm +++ b/enum.scm @@ -278,7 +278,7 @@ "sanitize-" san-code " */") "") - (if (or san? (=? (remainder n 4) 0)) + (if (or san? (= (remainder n 4) 0)) "\n " "") (if (= n 0) diff --git a/guile.scm b/guile.scm index d2b8d8d..85c37d4 100644 --- a/guile.scm +++ b/guile.scm @@ -37,10 +37,6 @@ ) ) -; FIXME: to be deleted -(define =? =) -(define >=? >=) - (if (not (symbol-bound? #f '%stat)) (begin (define %stat stat) diff --git a/opcodes.scm b/opcodes.scm index 66ce9dd..1644fcd 100644 --- a/opcodes.scm +++ b/opcodes.scm @@ -771,12 +771,12 @@ (begin (close-port port) ; End of file, did we find the text? - (if (=? start -1) + (if (= start -1) "" (substring result start index)))) ((char=? char #\newline) ; Check for start delim or end delim? - (if (=? start -1) + (if (= start -1) (if (string=? (substring result line (+ (string-length start-delim) line)) diff --git a/sim-test.scm b/sim-test.scm index 8176070..3029105 100644 --- a/sim-test.scm +++ b/sim-test.scm @@ -106,8 +106,8 @@ (let ((test-data (map (lambda (op) (operand-test-data op n)) op-list)) (len (length op-list))) ; FIXME: Make slicker later. - (cond ((=? len 0) (list (list))) - ((=? len 1) test-data) + (cond ((= len 0) (list (list))) + ((= len 1) test-data) (else (list (map car test-data))))) ) -- 2.41.0