Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-04 03:36:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

SRFI 143: fx-{width,least,greatest} are not procedures

Browse source 
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.
This commit is contained in:
Jeronimo Pellegrini 2023-03-04 06:53:53 -03:00
parent cb67aeb0a3
commit b60bfc266b
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
srfi/143.sld
View file

@ -36,9 +36,6 @@
fxbit-field-rotate fxbit-field-reverse fxbit-field-rotate fxbit-field-reverse
) )
(inline (inline
fx-width
fx-greatest
fx-least
fixnum? fixnum?
fx=? fx<? fx>? fx<=? fx>=? fx=? fx<? fx>? fx<=? fx>=?
fxzero? fxpositive? fxnegative? fxodd? fxeven? fxzero? fxpositive? fxnegative? fxodd? fxeven?
@ -56,9 +53,9 @@
mask mask
) )
(begin (begin
(define (fx-width) 31) (define fx-width 31)
(define (fx-greatest) 1073741823) (define fx-greatest 1073741823)
(define (fx-least) -1073741824) (define fx-least -1073741824)
(define-syntax bin-num-op (define-syntax bin-num-op
(er-macro-transformer (er-macro-transformer