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

Added fxif

Browse source
This commit is contained in:
Justin Ethier 2017-08-08 13:51:16 +00:00
parent 1a3f60711f
commit 0cb8f0f591
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
srfi/143.sld
View file

@ -27,7 +27,8 @@
fxnot fxand fxior fxxor
fxarithmetic-shift
fxarithmetic-shift-left fxarithmetic-shift-right
; fxbit-count fxlength fxif fxbit-set? fxcopy-bit
; fxbit-count fxlength
fxif ;fxbit-set? fxcopy-bit
; fxfirst-set-bit fxbit-field
; fxbit-field-rotate fxbit-field-reverse
)
@ -45,6 +46,7 @@
fxnot fxand fxior fxxor
fxarithmetic-shift
fxarithmetic-shift-left fxarithmetic-shift-right
fxif
)
(begin
(define (fx-width) 31)
@ -127,5 +129,7 @@
(fxarithmetic-shift-right i (fxneg count))))
(bin-num-op fxarithmetic-shift-left "<<")
(bin-num-op fxarithmetic-shift-right ">>")
(define (fxif mask i j)
(fxior (fxand (fxnot mask) i) (fxand mask j)))
))