From b60bfc266bbaeced2a0ccdb60747386bdb95a6ef Mon Sep 17 00:00:00 2001
From: Jeronimo Pellegrini <j_p@aleph0.info>
Date: Sat, 4 Mar 2023 06:53:53 -0300
Subject: [PATCH] SRFI 143: fx-{width,least,greatest} are not procedures

In the SRFI text, these are constants:

fx-width
fx-greatest
fx-least

But they were implemented as procedures in Cyclone.

This patch changes that, so they now are implemented
as constants.
---
 srfi/143.sld | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/srfi/143.sld b/srfi/143.sld
index b147e0fa..2dadeebc 100644
--- a/srfi/143.sld
+++ b/srfi/143.sld
@@ -36,9 +36,6 @@
     fxbit-field-rotate fxbit-field-reverse
   )
   (inline
-    fx-width
-    fx-greatest
-    fx-least
     fixnum?
     fx=?  fx<? fx>? fx<=? fx>=?
     fxzero? fxpositive? fxnegative? fxodd? fxeven?
@@ -56,9 +53,9 @@
     mask
   )
   (begin
-    (define (fx-width) 31)
-    (define (fx-greatest) 1073741823)
-    (define (fx-least)   -1073741824)
+    (define fx-width 31)
+    (define fx-greatest 1073741823)
+    (define fx-least   -1073741824)
 
     (define-syntax bin-num-op
       (er-macro-transformer