fix typo in byteread, all tests pass

compiler/src/l3/CPSValueRepresenter.scala

@@ -144,7 +144,7 @@ object CPSValueRepresenter extends (H.Tree => L.Tree) {
         }
       case L3.BlockLength => 
         tempLetP(CPS.BlockLength, args map (Left(_))) { t1 =>
-          tempLetP(CPS.ShiftLeft, Seq(Right(t1), Right(L.AtomL(1)))) { t2 =>
+          tempLetP(CPS.ShiftLeft, Seq(Right(t1), lAtomOne)) { t2 =>
             L.LetP(n, CPS.Add, Seq(t2, L.AtomL(1)), apply(body))
           }
         }
@@ -160,7 +160,7 @@ object CPSValueRepresenter extends (H.Tree => L.Tree) {
       case L3.ByteRead =>
         tempLetP(CPS.ByteRead, Seq()){ t1 => 
           tempLetP(CPS.ShiftLeft, Seq(Right(t1), lAtomOne)) { t2 =>
-            L.LetP(n, CPS.Add, Seq(t2, L.AtomL(2)), apply(body))
+            L.LetP(n, CPS.Add, Seq(t2, L.AtomL(1)), apply(body))
           }
         }
       case L3.ByteWrite =>