jaredj/glotawk - Change NK3QLADZCHMQZM6GGLKB4V5Q3GAQKBSBQX3GVR4RTM55BEHV2WAQC

rename assoc to assq, because it uses eq, renaming all existing calls (which are searching for symbols and so should use eq); and add assoc which uses equal as expected, so we can find things in alists with string keys

Created by jaredj on November 15, 2025

NK3QLADZCHMQZM6GGLKB4V5Q3GAQKBSBQX3GVR4RTM55BEHV2WAQC

Dependencies

In channels

main

Change contents

Insertion in sane_lisp at line 314 [3.900]

[2.1406]


lisp_eval_should_be '(assq '\''foo '\''( (bar 3) (baz 4) (foo 6) ))' '(foo 6)' 'assq searches alists; returns a pair'
lisp_eval_should_be '(assq "foo" '\''( ("bar" 3) ("baz" 4) ("foo" 6) ))' '()' 'assq cannot match strings because it uses eq'
lisp_eval_should_be '(assoc "foo" '\''( ("bar" 3) ("baz" 4) ("foo" 6) ))' '("foo" 6)' 'assoc, using equal, can deal with strings'

Replacement in data.awk at line 294 [3.16500]
B:BD[4.2358] → [4.2358:2387]
```
function _assoc(sym, alis) {
```
[4.2358]
[4.2430]
```
function _assq(sym, alis) {
```

Insertion in data.awk at line 305 [3.16500]

[4.2835]

}
function _assoc(thing, alis) {
    # _car(alis) is a pair; _caar(alis) is the key
    for(; !_is_null(alis) && !_equal_awk(_caar(alis), thing);
        alis=_cdr(alis));
    if(_is_null(alis)) # we did not find thing on the left side of a pair
        return _nil()
    else
        return _car(alis)

Replacement in data.awk at line 319 [3.16500]
∅:D[5.3960] → [4.2886:2923]
B:BD[4.2886] → [4.2886:2923]
```
    existing = _assoc(name, _MACROS)
```
[5.3960]
[4.2923]
```
    existing = _assq(name, _MACROS)
```
Replacement in eval.awk at line 5 [3.11057]
B:BD[6.25824] → [6.25824:25858]
```
    binding = _assoc(sym, locals)
```
[6.25824]
[6.25858]
```
    binding = _assq(sym, locals)
```

Replacement in eval.awk at line 7 [3.11057]

B:BD[6.25900] → [6.25900:25940]

        binding = _assoc(sym, _GLOBALS)

[6.25900]

[6.25940]

        binding = _assq(sym, _GLOBALS)

Replacement in eval.awk at line 107 [3.11057]

B:BD[7.2133] → [7.2133:2251]

            # just a parameter name. _assoc defaults to nil.
            v = _assoc(_symbol2keyword(sym), args_alist)

[7.2133]

[7.2251]

            # just a parameter name. _assq defaults to nil.
            v = _assq(_symbol2keyword(sym), args_alist)

Replacement in eval.awk at line 181 [3.11057]
∅:D[8.3240] → [6.29406:29437]
B:BD[6.29406] → [6.29406:29437]
```
    binding = _assoc(var, env)
```
[8.3240]
[9.1548]
```
    binding = _assq(var, env)
```
Replacement in eval.awk at line 187 [3.11057]
B:BD[6.29644] → [6.29644:29684]
```
        binding = _assoc(var, _GLOBALS)
```
[6.29644]
[9.1677]
```
        binding = _assq(var, _GLOBALS)
```

Replacement in eval.awk at line 245 [3.11057]

B:BD[4.1268] → [4.1268:1309]

            mpair = _assoc(car, _MACROS)

[4.1268]

[4.1309]

            mpair = _assq(car, _MACROS)

Replacement in eval.awk at line 251 [3.11057]

B:BD[4.1537] → [10.12747:12831]

                    acc = _cons(_expand(_car(form), depth+1, hdlrs, st, errp), acc)

[4.1537]

[4.1600]

                    acc = _cons(_expand(_car(form), depth+1, hdlrs, st, errp),
                                acc)

Replacement in eval.awk at line 286 [3.11057]

B:BD[11.4504] → [11.4504:4545]

            mpair = _assoc(car, _MACROS)

[11.4504]

[11.4545]

            mpair = _assq(car, _MACROS)

Insertion in eval.awk at line 352 [3.11057]

[10.13782]

[12.20071]

    else if(car == _symbol("assq"))
        return _assq(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                      _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Insertion in first-symbols.awk at line 27 [12.17737]
[12.18244]
[12.18244]
```
    _symbol("assq")
```
Insertion in lib.glotawk at line 20 [13.36]
[13.648]
[13.648]
```
(setq assq (lambda (a b) (assq a b)))
```

rename assoc to assq, because it uses eq, renaming all existing calls (which are searching for symbols and so should use eq); and add assoc which uses equal as expected, so we can find things in alists with string keys

Dependencies

In channels

Change contents

Insertion in sane_lisp at line 314 [3.900]

Replacement in data.awk at line 294 [3.16500]

Insertion in data.awk at line 305 [3.16500]

Replacement in data.awk at line 319 [3.16500]

Replacement in eval.awk at line 5 [3.11057]

Replacement in eval.awk at line 7 [3.11057]

Replacement in eval.awk at line 107 [3.11057]

Replacement in eval.awk at line 181 [3.11057]

Replacement in eval.awk at line 187 [3.11057]

Replacement in eval.awk at line 245 [3.11057]

Replacement in eval.awk at line 251 [3.11057]

Replacement in eval.awk at line 286 [3.11057]

Insertion in eval.awk at line 352 [3.11057]

Insertion in first-symbols.awk at line 27 [12.17737]

Insertion in lib.glotawk at line 20 [13.36]