From 390192db2a86965ebd2c5805ca1cd8d7c3d9078f Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 8 Aug 2017 13:17:09 +0000 Subject: [PATCH] Added shifts --- srfi/143.sld | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/srfi/143.sld b/srfi/143.sld index c9fa7716..6b371aec 100644 --- a/srfi/143.sld +++ b/srfi/143.sld @@ -25,7 +25,8 @@ ; fx+/carry fx-/carry fx*/carry 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 ; fxfirst-set-bit fxbit-field ; fxbit-field-rotate fxbit-field-reverse @@ -42,6 +43,8 @@ fxsquare fxabs fxnot fxand fxior fxxor + ;fxarithmetic-shift + fxarithmetic-shift-left fxarithmetic-shift-right ) (begin (define (fx-width) 31) @@ -118,5 +121,8 @@ (bin-num-op fxand "&") (bin-num-op fxior "|") (bin-num-op fxxor "^") + ;fxarithmetic-shift + (bin-num-op fxarithmetic-shift-left "<<") + (bin-num-op fxarithmetic-shift-right ">>") ))