jaredj/glotawk - Change GW4AAYNF7I66D72G5PMFTQRK7B4KZVYKAHKRPC2IY7IX37JKEHJQC

finish macros; indent some messages by call depth; fix tests and add more

Created by jaredj on June 9, 2025

GW4AAYNF7I66D72G5PMFTQRK7B4KZVYKAHKRPC2IY7IX37JKEHJQC

Dependencies

In channels

main

Change contents

Deletion in sane_lisp at line 4 [3.900]

B:BD[3.952] → [3.952:1041]


# look for @@ below; these are the variables that will be filled in to
# make sane_lisp

Replacement in sane_lisp at line 86 [3.900]

B:BD[3.2730] → [3.2730:2802]

lisp_eval_should_be '(cond ((false 5) (true 3)))' '3' 'cond evaluation'

[3.2730]

[3.2802]

lisp_eval_should_be '(cond (false 5) (true 3))' '3' 'cond evaluation'

Replacement in sane_lisp at line 111 [3.900]

B:BD[4.509] → [4.509:566]

lisp_eval_should_be '(quote unimplemented)' 'eh' 'nconc'

[4.509]

[3.3557]

lisp_eval_should_be '(setq a (quote (1 2 3)))
(setq b (quote (4 5)))
(nconc a b)
a
b' '(1 2 3)
(4 5)
(1 2 3 4 5)
(1 2 3 4 5)
(4 5)' 'nconc'
# the macro function returns the name of the macro; that's what the q
# in the output is
lisp_eval_should_be '(macro q (lambda (x) (list (quote quote) (car x))))
(q foo)' \
                    'q
foo' 'macro'

Deletion in repl.awk at line 17 [3.3599]
B:BD[2.38] → [2.38:56]
```
    LOG_LEVEL = 1
```
Deletion in repl.awk at line 18 [3.3599]
B:BD[2.79] → [2.79:97]
```
    LOG_LEVEL = 3
```
Deletion in repl.awk at line 19 [3.3599]
B:BD[2.122] → [2.122:140]
```
    LOG_LEVEL = 1
```

Replacement in logging.awk at line 9 [3.10323]

B:BD[3.10510] → [3.10510:10786]

function logg_dbg(where, x) { if(LOG_LEVEL >= 3) print "DBG " where ": " x >"/dev/stderr" }
function logg_inf(where, x) { if(LOG_LEVEL >= 2) print "INF " where ": " x >"/dev/stderr" }
function logg_err(where, x) { if(LOG_LEVEL >= 1) print "ERR " where ": " x >"/dev/stderr" }

[3.10510]

[3.10786]


function repeat_string(s, times,      q, r, tmp) {
    if(times==0) return ""
    else if(times==1) return s
    else {
        q = int(times / 2)
        r = times % 2
        tmp = repeat_string(s, q)
        if(r) return (tmp tmp s)
        else  return (tmp tmp)
    }
}
function sp(n) {
    return repeat_string(" ", n)
}
function binary_ticks(n,      r, s) {
    s=""
    for(d=0; d < depth_binary_digits; d++) {
        r = n%2
        if(r) s = "'" s
        else  s = " " s
        n = int(n/2)
    }
    if(n) return repeat_string("#", depth_binary_digits)
    else  return s
}

Insertion in logging.awk at line 39 [3.10323]

[3.10787]

function represent_depth(d) {
    # memoize
    if(d in depth_representations) {
        return depth_representations[d]
    } else {
        # ("[" binary_ticks(d) "]")
        return (depth_representations[d] = sp(d))
    }
}
function logg_dbg(where, x, d) {
    if(LOG_LEVEL >= 3)
        print "DBG" represent_depth(d) where ": " x >"/dev/stderr"
}
function logg_inf(where, x, d) {
    if(LOG_LEVEL >= 2)
        print "INF" represent_depth(d) where ": " x >"/dev/stderr"
}
function logg_err(where, x, d) {
    if(LOG_LEVEL >= 1)
        print "ERR" represent_depth(d) where ": " x >"/dev/stderr"
}

Insertion in logging.awk at line 65 [3.10323]
[3.10795]
[3.10795]
```
    depth_binary_digits = 8
```

Replacement in eval.awk at line 25 [3.11057]

B:BD[4.26239] → [4.26239:26353]

function _evprog(forms, env, outer_env) {
    logg_dbg("_evprog", "forms are " forms " containing " _repr(forms))

[4.26239]

[4.26353]

function _evprog(forms, env, outer_env, d) {
    logg_dbg("_evprog", "forms are " forms " containing " _repr(forms), d)

Replacement in eval.awk at line 31 [3.11057]

B:BD[4.26478] → [4.26478:26617]

        logg_dbg("_evprog", "non-tail evaluating " _repr(_car(forms)))
        _eval3(_car(forms), env, env) # and throw away return value

[4.26478]

[4.26617]

        logg_dbg("_evprog", "non-tail evaluating " _repr(_car(forms)), d)
        _eval3(_car(forms), env, env, d) # and throw away return value

Replacement in eval.awk at line 38 [3.11057]

B:BD[4.26826] → [4.26826:26964]

    logg_dbg("_evprog", "tail-eval-ing " _car(forms) " which contains "_repr(_car(forms)))
    return _eval3(_car(forms), env, outer_env)

[4.26826]

[4.26964]

    logg_dbg("_evprog", "tail-eval-ing " _car(forms) " which contains "_repr(_car(forms)), d)
    return _eval3(_car(forms), env, outer_env, d)

Replacement in eval.awk at line 42 [3.11057]

B:BD[4.26974] → [4.26974:27087]

function _evcon(clauses, env, outer_env,   tmp, actions) {
    logg_dbg("_evcon", "clauses are " _repr(clauses))

[4.26974]

[4.27087]

function _evcon(clauses, env, outer_env, d,   tmp, actions) {
    logg_dbg("_evcon", "clauses are " _repr(clauses), d)

Replacement in eval.awk at line 47 [3.11057]

B:BD[4.27222] → [4.27222:27402]

        tmp = _eval3(_caar(clauses), env, env) # the condition
        logg_dbg("_evcon", "thinking about clause " _repr(_car(clauses)) ". its condition works out to " _repr(tmp))

[4.27222]

[4.27402]

        tmp = _eval3(_caar(clauses), env, env, d+1) # the condition
        logg_dbg("_evcon", "thinking about clause " _repr(_car(clauses)) ". its condition works out to " _repr(tmp), d)

Replacement in eval.awk at line 50 [3.11057]

B:BD[4.27428] → [4.27428:27472]

            logg_dbg("_evcon", "advancing")

[4.27428]

[4.27472]

            logg_dbg("_evcon", "advancing", d)

Replacement in eval.awk at line 57 [3.11057]

B:BD[4.27636] → [4.27636:27715]

        logg_dbg("_evcon", _repr(tmp) " was truthy! We shall " _repr(actions))

[4.27636]

[4.27715]

        logg_dbg("_evcon", _repr(tmp) " was truthy! We shall " _repr(actions), d)

Replacement in eval.awk at line 61 [3.11057]

B:BD[4.27805] → [4.27805:27857]

            return _evprog(actions, env, outer_env)

[4.27805]

[4.27857]

            return _evprog(actions, env, outer_env, d+1)

Replacement in eval.awk at line 68 [3.11057]

B:BD[4.27943] → [4.27943:28014]

function _bind(vars, args, env, outer_env,    arg_value, lexpr_list) {

[4.27943]

[4.28014]

function _bind(vars, args, env, outer_env, d,   arg_value, lexpr_list) {

Replacement in eval.awk at line 70 [3.11057]

B:BD[4.28039] → [4.28039:28081]

        logg_dbg("_bind", "no more vars")

[4.28039]

[4.28081]

        logg_dbg("_bind", "no more vars", d)

Replacement in eval.awk at line 74 [3.11057]

B:BD[4.28197] → [4.28197:28263]

        logg_dbg("_bind lexpr", _repr(vars) " gets all the args")

[4.28197]

[4.28263]

        logg_dbg("_bind lexpr", _repr(vars) " gets all the args", d)

Replacement in eval.awk at line 77 [3.11057]

B:BD[4.28341] → [4.28341:28394]

            arg_value = _eval3(_car(args), env, env)

[4.28341]

[4.28394]

            arg_value = _eval3(_car(args), env, env, d+1)

Replacement in eval.awk at line 85 [3.11057]

B:BD[4.28626] → [4.28626:28690]

                 "now, what to bind to " _repr(_car(vars)) "?")

[4.28626]

[4.28690]

                 "now, what to bind to " _repr(_car(vars)) "?", d)

Replacement in eval.awk at line 87 [3.11057]

B:BD[4.28728] → [4.28728:28790]

                          _cons(_eval3(_car(args), env, env),

[4.28728]

[4.28790]

                          _cons(_eval3(_car(args), env, env, d+1),

Replacement in eval.awk at line 89 [3.11057]

B:BD[4.28831] → [4.28831:28899]

        logg_dbg("_bind", "consing " _repr(arg_value) " onto ... ")

[4.28831]

[4.28899]

        logg_dbg("_bind", "consing " _repr(arg_value) " onto ... ", d)

Replacement in eval.awk at line 91 [3.11057]

B:BD[4.28931] → [4.28931:28999]

                     _bind(_cdr(vars), _cdr(args), env, outer_env))

[4.28931]

[3.12353]

                     _bind(_cdr(vars), _cdr(args), env, outer_env, d))

Replacement in eval.awk at line 95 [3.11057]
B:BD[3.12362] → [4.29000:29043]
```
function _bindseq(bindings, env,   b, v) {
```
[3.12362]
[4.29043]
```
function _bindseq(bindings, env, d,   b, v) {
```

Replacement in eval.awk at line 99 [3.11057]

B:BD[4.29231] → [4.29231:29278]

        v = _eval3(_cadar(bindings), env, env)

[4.29231]

[4.29278]

        v = _eval3(_cadar(bindings), env, env, d+1)

Replacement in eval.awk at line 106 [3.11057]
B:BD[3.12930] → [4.29360:29406]
```
function _modify(var, val, env,    binding) {
```
[3.12930]
[4.29406]
```
function _modify(var, val, env, d,    binding) {
```

Replacement in eval.awk at line 108 [3.11057]

B:BD[4.29437] → [4.29437:29497]

    logg_dbg("_modify", "original binding " _repr(binding))

[4.29437]

[4.29497]

    logg_dbg("_modify", "original binding " _repr(binding), d)

Replacement in eval.awk at line 111 [3.11057]

B:BD[4.29563] → [4.29563:29622]

        logg_dbg("_modify", "modified to " _repr(binding))

[4.29563]

[4.29622]

        logg_dbg("_modify", "modified to " _repr(binding), d)

Replacement in eval.awk at line 114 [3.11057]

B:BD[4.29684] → [4.29684:29755]

        logg_dbg("_modify", "original global binding " _repr(binding))

[4.29684]

[4.29755]

        logg_dbg("_modify", "original global binding " _repr(binding), d)

Replacement in eval.awk at line 117 [3.11057]

B:BD[4.29829] → [4.29829:29892]

            logg_dbg("_modify", "modified to " _repr(binding))

[4.29829]

[4.29892]

            logg_dbg("_modify", "modified to " _repr(binding), d)

Replacement in eval.awk at line 119 [3.11057]

B:BD[4.29929] → [4.29929:30002]

            logg_dbg("_modify", "adding new global to " _repr(_GLOBALS))

[4.29929]

[4.30002]

            logg_dbg("_modify", "adding new global to " _repr(_GLOBALS), d)

Replacement in eval.awk at line 123 [3.11057]

B:BD[4.30155] → [4.30155:30227]

            logg_dbg("_modify", "now the globals are " _repr(_GLOBALS))

[4.30155]

[4.30227]

            logg_dbg("_modify", "now the globals are " _repr(_GLOBALS), d)

Replacement in eval.awk at line 140 [3.11057]

B:BD[3.13303] → [5.938:989]

B:BD[5.989] → [2.556:602]

function _expand(form,     car, mpair, app, acc) {
    logg_dbg("_expand", "form: " _repr(form))

[3.13303]

[5.989]

function _expand(form, depth,    car, mpair, app, acc) {

Insertion in eval.awk at line 152 [3.11057]

[5.1343]

                logg_dbg("_expand not macro", _repr(form), depth)

Replacement in eval.awk at line 156 [3.11057]

B:BD[5.1537] → [2.603:661]

                    acc = _cons(_expand(_car(form)), acc)

[5.1537]

[5.1600]

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

Replacement in eval.awk at line 166 [3.11057]

B:BD[2.1063] → [2.1063:1663]

                acc = _cons(_symbol("list"),
                            _cons(_cons(_symbol("list"),
                                        _cons(_cons(_symbol("quote"),
                                                    _cons(_symbol("quote"),
                                                          _nil())),
                                              _cons(_cdr(form),
                                                    _nil()))),
                                  _nil()))
                logg_dbg("_expand macro call", "_evaling " _repr(acc))
                return _expand(_eval(acc))

[2.1063]

[2.1663]

                logg_dbg("_expand macro call", "mpair is " _repr(mpair),
                         depth+1)
                
                acc = _cons(_cadr(mpair),
                            _cons(_cons(_cons(_symbol("quote"),
                                              _cons(_symbol("quote"),
                                                    _nil())),
                                        _cons(_cdr(form),
                                              _nil())),
                                  _nil()),
                            _nil())
                logg_dbg("_expand macro call", "_evaling " _repr(acc), depth)
                return _expand(_eval(acc, depth+1), depth+1)

Replacement in eval.awk at line 184 [3.11057]

∅:D[5.1796] → [4.30302:30413]

B:BD[3.13303] → [4.30302:30413]

∅:D[4.30413] → [3.13394:13423]

B:BD[3.13394] → [3.13394:13423]

B:BD[3.13423] → [4.30414:30582]

function _eval3(form, env, outer_env,   tv, t, v, n, cell, car, cdr, x, inner_env, a, b) {
    split(form, tv)
    t = tv[1]
    v = tv[2]
    logg_dbg("_eval3","form is " form " containing " _repr(form) "; env is " env " containing " _repr(env) "; outer_env is " outer_env " containing " _repr(outer_env))

[5.1796]

[3.13530]

function _eval3(form, env, outer_env, d,   tv, t, v, n, cell, car, cdr, x, inner_env, a, b) {
    logg_dbg("_eval3","form is " form " containing " _repr(form) "; env is " env " containing " _repr(env) "; outer_env is " outer_env " containing " _repr(outer_env), d)

Replacement in eval.awk at line 194 [3.11057]

B:BD[3.13779] → [4.30583:30655]

            logg_dbg("_eval3", "car is " car " containing " _repr(car))

[3.13779]

            logg_dbg("_eval3", "car is " car " containing " _repr(car), d)

Replacement in eval.awk at line 198 [3.11057]

B:BD[3.13961] → [4.30656:30720]

                    return _atom(_eval3(_cadr(form), env, env))

[3.13961]

[4.30720]

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

Replacement in eval.awk at line 200 [3.11057]

B:BD[4.30766] → [4.30766:30891]

                    return _eq(_eval3(_cadr(form), env, env),
                               _eval3(_caddr(form), env, env))

[4.30766]

[3.14019]

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

Replacement in eval.awk at line 203 [3.11057]

B:BD[3.14066] → [4.30892:30955]

                    return _car(_eval3(_cadr(form), env, env))

[3.14066]

[3.14123]

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

Replacement in eval.awk at line 205 [3.11057]

B:BD[3.14170] → [4.30956:31019]

                    return _cdr(_eval3(_cadr(form), env, env))

[3.14170]

[3.14227]

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

Replacement in eval.awk at line 207 [3.11057]

B:BD[3.14275] → [4.31020:31149]

                    return _cons(_eval3(_cadr(form), env, env),
                                 _eval3(_caddr(form), env, env))

[3.14275]

[3.14569]

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

Replacement in eval.awk at line 212 [3.11057]

B:BD[3.14720] → [4.31202:31525]

                    logg_dbg("_eval3 label", "env before: " env "; appending " _cadr(cell))
                    inner_env = _bindseq(_cadr(form), env)
                    logg_dbg("_eval3 label", "inner_env: " inner_env " containing " _repr(inner_env))
                    return _evprog(_cddr(form), inner_env, inner_env)

[3.14720]

[4.31525]

                    logg_dbg("_eval3 label", "env before: " env "; appending " _cadr(cell), d)
                    inner_env = _bindseq(_cadr(form), env, d+1)
                    logg_dbg("_eval3 label", "inner_env: " inner_env " containing " _repr(inner_env), d)
                    return _evprog(_cddr(form), inner_env, inner_env, d+1)

Replacement in eval.awk at line 219 [3.11057]

B:BD[4.31706] → [4.31706:31771]

                    return _falsy(_eval3(_cadr(form), env, env))

[4.31706]

[4.31771]

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

Replacement in eval.awk at line 221 [3.11057]

B:BD[4.31819] → [4.31819:31886]

                    return _is_null(_eval3(_cadr(form), env, env))

[4.31819]

[4.31886]

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

Replacement in eval.awk at line 223 [3.11057]

B:BD[4.31935] → [4.31935:32066]

                    return _equal(_eval3(_cadr(form), env, env),
                                  _eval3(_caddr(form), env, env))

[4.31935]

[4.32066]

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

Replacement in eval.awk at line 226 [3.11057]

B:BD[4.32114] → [4.32114:32178]

                    return _caar(_eval3(_cadr(form), env, env))

[4.32114]

[4.32178]

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

Replacement in eval.awk at line 228 [3.11057]

B:BD[4.32226] → [4.32226:32290]

                    return _cadr(_eval3(_cadr(form), env, env))

[4.32226]

[4.32290]

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

Replacement in eval.awk at line 230 [3.11057]

B:BD[4.32338] → [4.32338:32467]

                    return _memq(_eval3(_cadr(form), env, env),
                                 _eval3(_caddr(form), env, env))

[4.32338]

[4.32467]

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

Replacement in eval.awk at line 233 [3.11057]

B:BD[4.32517] → [4.32517:32650]

                    return _member(_eval3(_cadr(form), env, env),
                                   _eval3(_caddr(form), env, env))

[4.32517]

[4.32650]

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

Replacement in eval.awk at line 236 [3.11057]

B:BD[4.32699] → [4.32699:32830]

                    return _assoc(_eval3(_cadr(form), env, env),
                                  _eval3(_caddr(form), env, env))

[4.32699]

[4.32830]

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

Replacement in eval.awk at line 240 [3.11057]

B:BD[4.32926] → [4.32926:32993]

                                   _eval3(_caddr(form), env, env),

[4.32926]

[4.32993]

                                   _eval3(_caddr(form), env, env, d+1),

Replacement in eval.awk at line 243 [3.11057]

B:BD[4.33082] → [4.33082:33147]

                    return _caaar(_eval3(_cadr(form), env, env))

[4.33082]

[4.33147]

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

Replacement in eval.awk at line 245 [3.11057]

B:BD[4.33196] → [4.33196:33261]

                    return _caadr(_eval3(_cadr(form), env, env))

[4.33196]

[4.33261]

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

Replacement in eval.awk at line 247 [3.11057]

B:BD[4.33310] → [4.33310:33375]

                    return _cadar(_eval3(_cadr(form), env, env))

[4.33310]

[4.33375]

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

Replacement in eval.awk at line 249 [3.11057]

B:BD[4.33424] → [4.33424:33489]

                    return _caddr(_eval3(_cadr(form), env, env))

[4.33424]

[4.33489]

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

Replacement in eval.awk at line 251 [3.11057]

B:BD[4.33538] → [4.33538:33603]

                    return _cdaar(_eval3(_cadr(form), env, env))

[4.33538]

[4.33603]

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

Replacement in eval.awk at line 253 [3.11057]

B:BD[4.33652] → [4.33652:33717]

                    return _cdadr(_eval3(_cadr(form), env, env))

[4.33652]

[4.33717]

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

Replacement in eval.awk at line 255 [3.11057]

B:BD[4.33766] → [4.33766:33831]

                    return _cddar(_eval3(_cadr(form), env, env))

[4.33766]

[4.33831]

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

Replacement in eval.awk at line 257 [3.11057]

B:BD[4.33880] → [4.33880:33945]

                    return _cdddr(_eval3(_cadr(form), env, env))

[4.33880]

[4.33945]

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

Replacement in eval.awk at line 259 [3.11057]

B:BD[4.33995] → [4.33995:34130]

                    return _set_car(_eval3(_cadr(form), env, env),
                                    _eval3(_caddr(form), env, env))

[4.33995]

[4.34130]

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

Replacement in eval.awk at line 262 [3.11057]

B:BD[4.34180] → [4.34180:34315]

                    return _set_cdr(_eval3(_cadr(form), env, env),
                                    _eval3(_caddr(form), env, env))

[4.34180]

[4.34315]

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

Replacement in eval.awk at line 265 [3.11057]

B:BD[4.34367] → [4.34367:34435]

                    return _nreverse(_eval3(_cadr(form), env, env))

[4.34367]

[4.34435]

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

Replacement in eval.awk at line 267 [3.11057]

B:BD[4.34484] → [4.34484:34615]

                    return _nconc(_eval3(_cadr(form), env, env),
                                  _eval3(_caddr(form), env, env))

[4.34484]

[4.34615]

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

Replacement in eval.awk at line 270 [3.11057]

B:BD[4.34665] → [4.34665:34798]

                    return _append(_eval3(_cadr(form), env, env),
                                   _eval3(_caddr(form), env, env))

[4.34665]

[4.34798]

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

Replacement in eval.awk at line 273 [3.11057]

B:BD[4.34847] → [4.34847:34904]

                    return _evprog(_cdr(form), env, env)

[4.34847]

[5.1797]

                    return _evprog(_cdr(form), env, env, d+1)

Replacement in eval.awk at line 275 [3.11057]

B:BD[5.1847] → [5.1847:1980]

                    return _mapcar(_eval3(_cadr(form), env, env),
                                   _eval3(_caddr(form), env, env),

[5.1847]

[5.1980]

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

Replacement in eval.awk at line 282 [3.11057]

B:BD[4.34951] → [4.34951:35124]

                    a = _eval3(_cadr(form), env, env)
                    b = _eval3(_caddr(form), env, env)
                    logg_dbg("_eval3 +", "adding " a " and " b)

[4.34951]

[4.35124]

                    a = _eval3(_cadr(form), env, env, d+1)
                    b = _eval3(_caddr(form), env, env, d+1)
                    logg_dbg("_eval3 +", "adding " a " and " b, d)

Replacement in eval.awk at line 295 [3.11057]

B:BD[4.35510] → [4.35510:35574]

                    logg_err("_eval3 +", "non-numeric operand")

[4.35510]

[4.35574]

                    logg_err("_eval3 +", "non-numeric operand", d)

Replacement in eval.awk at line 303 [3.11057]

B:BD[4.35868] → [4.35868:35914]

                    x = _eval3(car, env, env)

[4.35868]

[4.35914]

                    x = _eval3(car, env, env, d+1)

Replacement in eval.awk at line 305 [3.11057]

B:BD[4.35952] → [4.35952:36063]

                        logg_err("_eval3 funcall", "operator " _repr(car) " evaluates to nil; is it defined?")

[4.35952]

[4.36063]

                        logg_err("_eval3 funcall", "operator " _repr(car) " evaluates to nil; is it defined?", d)

Replacement in eval.awk at line 308 [3.11057]

B:BD[4.36128] → [4.36128:36198]

                        return _eval3(_cons(x, _cdr(form)), env, env)

[4.36128]

[4.36198]

                        return _eval3(_cons(x, _cdr(form)), env, env, d+1)

Replacement in eval.awk at line 317 [3.11057]

B:BD[4.36507] → [4.36507:36566]

                             "; body: " _repr(_cddr(car)))

[4.36507]

[4.36566]

                             "; body: " _repr(_cddr(car)), d)

Replacement in eval.awk at line 320 [3.11057]

B:BD[4.36671] → [4.36671:36740]

                                         env, outer_env), outer_env)

[4.36671]

[4.36740]

                                         env, outer_env, d), outer_env, d)

Replacement in eval.awk at line 327 [3.11057]

B:BD[4.36944] → [4.36944:37068]

                             "; body: " _repr(_cddr(car)))
                    inner_env = _bind(_cadr(car), cdr, env, env)

[4.36944]

[4.37068]

                             "; body: " _repr(_cddr(car)), d)
                    inner_env = _bind(_cadr(car), cdr, env, env, d+1)

Replacement in eval.awk at line 331 [3.11057]

B:BD[4.37176] → [4.37176:37307]

                             "; evprogging body in that env")
                    return _evprog(_cddr(car), inner_env, inner_env)

[4.37176]

[3.15810]

                             "; evprogging body in that env", d)
                    return _evprog(_cddr(car), inner_env, inner_env, d+1)

Replacement in eval.awk at line 334 [3.11057]

B:BD[3.15835] → [4.37308:37469]

                    logg_dbg("_eval3", "evaluating list in function position: " _repr(car))
                    return _eval3(_cons(_eval3(car, env), cdr), env)

[3.15835]

[3.15993]

                    logg_dbg("_eval3", "evaluating list in function position: " _repr(car), d)
                    return _eval3(_cons(_eval3(car, env, d+1), cdr), env, env, d+1)

Replacement in eval.awk at line 338 [3.11057]

B:BD[3.16032] → [4.37470:37559]

                logg_err("_eval3", "unexpected thing in function position: " _repr(car))

[3.16032]

[3.16120]

                logg_err("_eval3", "unexpected thing in function position: " _repr(car), d)

Replacement in eval.awk at line 342 [3.11057]

B:BD[3.16194] → [4.37560:37632]

            logg_dbg("_eval3", "evaluating symbol " _SYM_NUMBERS[form])

[3.16194]

[4.37632]

            logg_dbg("_eval3", "evaluating symbol " _SYM_NUMBERS[form], d)

Replacement in eval.awk at line 347 [3.11057]

B:BD[3.16373] → [4.37682:37738]

            logg_err("_eval3", "how do i eval " t " ?")

[3.16373]

[3.16428]

            logg_err("_eval3", "how do i eval " t " ?", d)

Replacement in eval.awk at line 353 [3.11057]

B:BD[3.16466] → [4.37739:37762]

B:BD[4.37762] → [2.1696:1745]

function _eval(form) {
    return _eval3(_expand(form), _nil(), _nil())

[3.16466]

[4.37802]

function _eval(form, depth) {
    return _eval3(_expand(form, depth+1), _nil(), _nil(), depth)

Insertion in dump.awk at line 46 [4.37838]
[4.39160]
[4.39160]
```
    print "    _MACROS = " _MACROS >>filename
```