jaredj/glotawk - Change 2UOWJD64KBUHIWGZTPGUWWJXH5ZIAMOEJRDNZQOW5QWBJDEACURQC

avoid representing values as true or false, then checking them against true or false, for a ~10% speedup on the benchmark

Created by jaredj on July 3, 2025

2UOWJD64KBUHIWGZTPGUWWJXH5ZIAMOEJRDNZQOW5QWBJDEACURQC

Dependencies

In channels

main

Change contents

Replacement in eval.awk at line 72 [4.11057]
B:BD[3.28106] → [3.28106:28144]
```
    } else if(_truthy(_atom(vars))) {
```
[3.28106]
[3.28144]
```
    } else if(_atom_awk(vars)) {
```
Replacement in eval.awk at line 142 [4.11057]
∅:D[5.602] → [6.989:1020]
∅:D[2.2092] → [6.989:1020]
∅:D[7.3437] → [6.989:1020]
∅:D[8.3720] → [6.989:1020]
B:BD[6.989] → [6.989:1020]
```
    if(_truthy(_atom(form))) {
```
[2.2092]
[6.1020]
```
    if(_atom_awk(form)) {
```
Replacement in eval.awk at line 183 [4.11057]
B:BD[7.4336] → [7.4336:4367]
```
    if(_truthy(_atom(form))) {
```
[7.4336]
[7.4367]
```
    if(_atom_awk(form)) {
```

Replacement in eval.awk at line 362 [4.11057]

B:BD[4.13961] → [8.4893:4962]

                    return _atom(_eval3(_cadr(form), env, env, d+1))

[4.13961]

[3.30720]

                    return _atom_lisp(_eval3(_cadr(form), env, env, d+1))

Replacement in eval.awk at line 364 [4.11057]

B:BD[3.30766] → [8.4963:5098]

                    return _eq(_eval3(_cadr(form), env, env, d+1),
                               _eval3(_caddr(form), env, env, d+1))

[3.30766]

[4.14019]

                    return _eq_lisp(_eval3(_cadr(form), env, env, d+1),
                                    _eval3(_caddr(form), env, env, d+1))

Replacement in eval.awk at line 387 [4.11057]

B:BD[3.31935] → [8.5861:6002]

                    return _equal(_eval3(_cadr(form), env, env, d+1),
                                  _eval3(_caddr(form), env, env, d+1))

[3.31935]

[3.32066]

                    return _equal_lisp(_eval3(_cadr(form), env, env, d+1),
                                       _eval3(_caddr(form), env, env, d+1))

Insertion in data.awk at line 52 [4.16500]
[4.17248]
[4.17248]
```
function _lispify_bool(c) {
    return c ? "t" : "f"
}
```
Replacement in data.awk at line 69 [4.16500]
B:BD[4.17696] → [4.17696:17729]
```
function _atom(value,       t) {
```
[4.17696]
[4.17729]
```
function _atom_awk(value,       t) {
```
Replacement in data.awk at line 71 [4.16500]
B:BD[4.17758] → [4.17758:17782]
```
        return _true();
```
[4.17758]
[4.17782]
```
        return 1
```

Replacement in data.awk at line 74 [4.16500]

B:BD[4.17820] → [4.17820:17929]

        if(t == "'") return _true();
        else if(t == "s") return _true();
        else return _false();

[4.17820]

[4.17929]

        if(t == "'") return 1
        else if(t == "s") return 1
        else return 0

Replacement in data.awk at line 80 [4.16500]

B:BD[4.17938] → [4.17938:17958]

function _eq(a,b) {

[4.17938]

[4.17958]

function _atom_lisp(value) {
    return _lispify_bool(_atom_awk(value))
}
function _eq_awk(a,b) {

Replacement in data.awk at line 87 [4.16500]

B:BD[4.18012] → [4.18012:18062]

            return (a == b) ? _true() : _false();

[4.18012]

[4.18062]

            return (a == b)

Replacement in data.awk at line 89 [4.16500]
B:BD[4.18079] → [4.18079:18108]
```
            return _false();
```
[4.18079]
[4.18108]
```
            return 0
```

Replacement in data.awk at line 93 [4.16500]

B:BD[4.18166] → [4.18166:18216]

            return (a == b) ? _true() : _false();

[4.18166]

[4.18216]

            return (a == b)

Replacement in data.awk at line 95 [4.16500]
B:BD[4.18233] → [4.18233:18262]
```
            return _false();
```
[4.18233]
[4.18262]
```
            return 0
```

Insertion in data.awk at line 98 [4.16500]

[4.18278]

}
function _eq_lisp(a,b) {
    return _lispify_bool(_eq_awk(a,b))

Replacement in data.awk at line 184 [4.16500]

B:BD[3.39596] → [3.39596:39653]

    # _atom(_nil()) is _truthy
    if(_truthy(_atom(a)))

[3.39596]

[3.39653]

    # _atom_awk(_nil()) is true
    if(_atom_awk(a))

Replacement in data.awk at line 187 [4.16500]

B:BD[3.39670] → [3.39670:39735]

    for(a_end=a; _falsy(_atom(_cdr(a_end))); a_end=_cdr(a_end));

[3.39670]

[3.39735]

    for(a_end=a; !_atom_awk(_cdr(a_end)); a_end=_cdr(a_end));

Replacement in data.awk at line 193 [4.16500]
B:BD[3.39847] → [3.39847:39871]
```
function _equal(a, b) {
```
[3.39843]
[3.39871]
```
function _equal_awk(a, b) {
```

Replacement in data.awk at line 195 [4.16500]

B:BD[3.39890] → [3.39890:40151]

    if(_truthy(_eq(a, b)))
        return _true()
    else if(_truthy(_atom(a)))
        # if they were both atoms above, they weren't eq
        return _false()
    else if(_truthy(_atom(b)))
        # a wasn't an atom above, but b is.
        return _false()

[3.39890]

[3.40151]

    if(_eq_awk(a, b)) return 1
    # if they were both atoms above, they weren't eq
    else if(_atom_awk(a)) return 0
    # a wasn't an atom above, but b is.
    else if(_atom_awk(b)) return 0

Replacement in data.awk at line 201 [4.16500]

B:BD[3.40220] → [3.40220:40299]

    # equal. iterativized. if they have different lengths, 
    ans = _false()

[3.40220]

[3.40299]

    # equal. iterativized. if they have different lengths, one of the
    # members will be checked against nil.
    ans = 0

Replacement in data.awk at line 205 [4.16500]

B:BD[3.40341] → [3.40341:40396]

            (ans = _truthy(_equal(_car(a), _car(b))));

[3.40341]

[3.40396]

          (ans = _equal_awk(_car(a), _car(b)));

Insertion in data.awk at line 209 [4.16500]

[4.20079]

function _equal_lisp(a, b) {
    return _lispify_bool(_equal_awk(a, b))
}

Replacement in data.awk at line 215 [4.16500]

B:BD[3.40542] → [3.40542:40601]

    for(; !_is_null(lis) && _falsy(_eq(thing, _car(lis)));

[3.40542]

[3.40601]

    for(; !_is_null(lis) && !_eq_awk(thing, _car(lis));

Replacement in data.awk at line 223 [4.16500]

B:BD[3.40784] → [3.40784:40846]

    for(; !_is_null(lis) && _falsy(_equal(thing, _car(lis)));

[3.40784]

[3.40846]

    for(; !_is_null(lis) && !_equal_awk(thing, _car(lis));

Replacement in data.awk at line 232 [4.16500]

B:BD[5.2131] → [5.2131:2189]

        !_is_null(alis) && _falsy(_eq(_caar(alis), sym));

[5.2131]

[5.2189]

        !_is_null(alis) && !_eq_awk(_caar(alis), sym);