extra/syntax/terse/terse.factor

   1 USING: math words ;
   2 IN: syntax.terse
   3
   4 ! shorthand/C-like bitwise ops
   5 ALIAS: `& bitand
   6 ALIAS: `| bitor
   7 ALIAS: `^ bitxor
   8 ALIAS: `~ bitnot
   9 ALIAS: `<< shift
  10 : `>> ( x n -- x/2^n ) neg shift ; inline