t-literal-integers.scm 223 B

123456
  1. ;; Check whether literal integers are correctly signed.
  2. (and (= 4294967295 (- (expt 2 32) 1)) ;; unsigned
  3. (= -2147483648 (- (expt 2 31))) ;; signed
  4. (= 2147483648 (expt 2 31))) ;; unsigned