* Added (flonum-u8-ref x k) where x is a flonum, k is a fixnum in

between 0 and 7, and returns byte k in the flonum data structure.
  k is a logical index in an IEEE number with the structure:
  [s][11-bit-biased-expo] [52-bit-mantissa==================]
  [  k = 0  ] [  k = 1  ] [k=2] [k=3] [k=4] [k=5] [k=6] [k=7]

src/pass-specify-rep-primops.ss

@@ -734,7 +734,7 @@
       (prm 'sll
         (prm 'logand 
            (prm 'bref (T s)
-             (K (+ i (- disp-flonum-data record-tag))))
+             (K (+ (- 7 i) (- disp-flonum-data record-tag))))
            (K 255))
         (K fx-shift))]
      [else (interrupt)])]