amend a bug to do with tabulating vector
This commit is contained in:
@@ -1705,10 +1705,9 @@ struct
|
|||||||
if midpoint >= 0 then
|
if midpoint >= 0 then
|
||||||
let
|
let
|
||||||
val _ = println "1640"
|
val _ = println "1640"
|
||||||
val slice = VectorSlice.slice
|
|
||||||
(leftLinesHd, 0, SOME (midpoint + 1))
|
|
||||||
in
|
in
|
||||||
VectorSlice.vector slice
|
Vector.tabulate (midpoint, fn idx =>
|
||||||
|
Vector.sub (leftLinesHd, idx + 1) - stringStart)
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
Vector.fromList []
|
Vector.fromList []
|
||||||
|
|||||||
Reference in New Issue
Block a user