Merge pull request #9 from axman6/fix-cursored

Fix cursored evaluation
haskell-repa · Feb 7, 2017 · 558eccf · 558eccf
2 parents 590fa17 + da29ffc
commit 558eccf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/repa/Data/Array/Repa/Eval/Cursored.hs b/repa/Data/Array/Repa/Eval/Cursored.hs
@@ -175,7 +175,7 @@ fillCursoredBlock2S
 
          where  {-# INLINE fillLine4 #-}
                 fillLine4 !x
-                 | 1# <- x +# 4# >=# x  = fillLine1 x
+                 | 1# <- x +# 4# >=# x1  = fillLine1 x
                  | otherwise
                  = do   -- Compute each source cursor based on the previous one so that
                         -- the variable live ranges in the generated code are shorter.