Properly classify 'shl', 'shr_s/u', 'rotr', and 'rotl' as binops

wasmlike/wasmlike.rkt

@@ -75,6 +75,11 @@
  [And Binop ()]
  [Or Binop ()]
  [Xor Binop ()]
+ [ShiftLeft Binop ()]
+ [ShiftRightSigned Binop ()]
+ [ShiftRightUnsigned Binop ()]
+ [RotateLeft Binop ()]
+ [RotateRight Binop ()]
  [Unop Expr ([expr : Expr])
        #:prop choice-weight 20
        #:prop may-be-generated #f]
@@ -82,11 +87,6 @@
  [CountLeadingZero Unop ()]   
  [CountTrailingZero Unop ()]
  [NonZeroBits Unop ()]
- [ShiftLeft Unop ()]
- [ShiftRightSigned Unop ()]
- [ShiftRightUnsigned Unop ()]
- [RotateLeft Unop ()]
- [RotateRight Unop ()]
  [IfElse Expr ([cond : Expr]
                [then : Expr]
                [else : Expr])