Commits

evhan  committed 5d91f6a

use shorthand, cosmetic

  • Participants
  • Parent commits 21e706f

Comments (0)

Files changed (1)

 (define ❘ bitwise-ior)
 
 ;; 64-bit-word-bounded operations.
-(define-syntax w (syntax-rules () ((_ n)   (bitwise-and n 18446744073709551615))))
+(define-syntax w (syntax-rules () ((_ n)   (& n 18446744073709551615))))
 (define-syntax « (syntax-rules () ((_ n m) (w (arithmetic-shift n m)))))
 (define-syntax ↺ (syntax-rules () ((_ n m) (❘ (« n m) (« n (- (- 64 m)))))))