[VM/values/clean] `cleanBlock` is too slow

[github-actions[bot]]

[VM/values/clean] cleanBlock is too slow

when built without NOERRORLINES - which is our normal setup - this specific piece of code could be slowing down the whole language by up to 20%

https://github.com/arturo-lang/arturo/blob/7b87504ed1fcb7ef40bb03a3bb37503294ba4fb9/src/vm/values/clean.nim#L17

# Arturo
# Programming Language + Bytecode VM compiler
# (c) 2019-2022 Yanis Zafirópulos
#
# @file: vm/values/clean.nim
######################################################

import macros, sequtils, strutils, sugar

import vm/values/types

#=======================================
# Helpers
#=======================================

# TODO(VM/values/clean) `cleanBlock` is too slow
#  when built without NOERRORLINES - which is our normal setup - this specific piece of code could be slowing down the whole language by up to 20%
#  labels: vm, values, performance, enhancement, benchmark, critical

func cleanBlock*(va: var ValueArray) {.inline,enforceNoRaises.} =
    when not defined(NOERRORLINES):
        va.keepIf((vv) => vv.kind != Newline)
    else:
        discard

func cleanedBlockImpl*(va: ValueArray): ValueArray {.inline,enforceNoRaises.} =
    result = collect(newSeqOfCap(va.len)):
        for vv in va:
            if vv.kind != Newline:
                vv

template cleanedBlock*(va: ValueArray, inplace=false): untyped =
    when not defined(NOERRORLINES):
        cleanedBlockImpl(va)
    else:
        va

iterator cleanedBlockValues*(v: Value): lent Value =
    var i = 0
    var L = v.a.len
    when not defined(NOERRORLINES):
        if v.dirty:
            while i < L:
                if v.a[i].kind != Newline:
                    yield v.a[i]
                inc(i)
        else:
            while i < L:
                yield v.a[i]
                inc(i)
    else:
        while i < L:
            yield v.a[i]
            inc(i)

macro ensureCleaned*(name: untyped): untyped =
    let cleanName =  ident("clean" & ($name).capitalizeAscii())
    let cleanedBlock = ident("cleanedBlockTmp" & ($name).capitalizeAscii())
    when not defined(NOERRORLINES):
        result = quote do:
            var `cleanedBlock`: ValueArray
            let `cleanName` {.cursor.} = (
                if `name`.dirty: 
                    `cleanedBlock` = cleanedBlockImpl(`name`.a) 
                    `cleanedBlock`
                else: 
                    `name`.a
            )
    else:
        result = quote do:
            let `cleanName` {.cursor.} = `name`.a
 No newline at end of file
ndex ac0c3a9ca3..51f32dd54a 100644
++ b/src/vm/values/comparison.nim

98e2f9fc67503a94de823d8419e845b95d618fee