Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 17:27:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added shifts

Browse source
This commit is contained in:
Justin Ethier 2017-08-08 13:17:09 +00:00
parent 5b5e88a61a
commit 390192db2a
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
srfi/143.sld
View file

@ -25,7 +25,8 @@
; fx+/carry fx-/carry fx*/carry ; fx+/carry fx-/carry fx*/carry
fxnot fxand fxior fxxor fxnot fxand fxior fxxor
; fxarithmetic-shift fxarithmetic-shift-left fxarithmetic-shift-right ;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 ; fxfirst-set-bit fxbit-field
; fxbit-field-rotate fxbit-field-reverse ; fxbit-field-rotate fxbit-field-reverse
@ -42,6 +43,8 @@
fxsquare fxsquare
fxabs fxabs
fxnot fxand fxior fxxor fxnot fxand fxior fxxor
;fxarithmetic-shift
fxarithmetic-shift-left fxarithmetic-shift-right
) )
(begin (begin
(define (fx-width) 31) (define (fx-width) 31)
@ -118,5 +121,8 @@
(bin-num-op fxand "&") (bin-num-op fxand "&")
(bin-num-op fxior "|") (bin-num-op fxior "|")
(bin-num-op fxxor "^") (bin-num-op fxxor "^")
;fxarithmetic-shift
(bin-num-op fxarithmetic-shift-left "<<")
(bin-num-op fxarithmetic-shift-right ">>")
)) ))