@@ 614,7 614,6 @@ functor FileBackedDTWCostVectorFn (ARG :
fun fromPoly (v : cost Vector.vector)
: ARG.V.vector =
- (*!!! short-circuit these with calls to MLtonMonoVector fromPoly in a helper? *)
ARG.V.tabulate (Vector.length v, fn i => Vector.sub (v, i))
fun fromVector (file, v) =
@@ 626,7 625,6 @@ functor FileBackedDTWCostVectorFn (ARG :
fun toPoly (v : ARG.V.vector)
: cost Vector.vector =
- (*!!! short-circuit these with calls to MLtonMonoVector toPoly in a helper? *)
Vector.tabulate (ARG.V.length v, fn i => ARG.V.sub (v, i))
fun toVector v =