Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 12:35:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #503 from jpellegrini/srfi-143

Browse source 
SRFI 143: `fx-{width,least,greatest}` are not procedures
This commit is contained in:
Justin Ethier 2023-03-04 10:15:36 -05:00 • committed by GitHub
commit bb707e8604
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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