jaredj/glotawk - Change NEUQJ7FRWFVZ7HPXGLLBU55FH6OSB374SQSRGIAAA233KFGEKTDAC

add error and handle special forms; keep a list of expressions being evaluated; use error in make-safe-shell-command rather than abort; show what was being evaluated when abort is called

Created by jaredj on September 17, 2025

NEUQJ7FRWFVZ7HPXGLLBU55FH6OSB374SQSRGIAAA233KFGEKTDAC

Dependencies

In channels

main

Change contents

Replacement in string.awk at line 4 [10.35]

B:BD[10.78] → [10.78:131]

function _eval3_string(form, env, d,       car, a) {

[10.78]

[10.131]

function _eval3_string(form, env, d, hdlrs, st, errp,       car, a) {

Replacement in string.awk at line 7 [10.35]

B:BD[10.186] → [10.186:246]

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

[10.186]

[10.246]

        return _tolower(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in string.awk at line 9 [10.35]

B:BD[10.285] → [10.285:345]

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

[10.285]

[10.345]

        return _toupper(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in string.awk at line 13 [10.35]

B:BD[10.487] → [10.487:616]

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

[10.487]

[10.616]

            return _substr2(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                            _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in string.awk at line 16 [10.35]

B:BD[10.629] → [10.629:829]

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

[10.629]

[10.829]

            return _substr3(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                            _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp),
                            _eval3(_car(_cdddr(form)), env, env, d+1, hdlrs, st, errp))

Replacement in string.awk at line 20 [10.35]

B:BD[10.866] → [10.866:983]

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

[10.866]

[10.983]

        return _index(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                      _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in string.awk at line 23 [10.35]

B:BD[10.1020] → [10.1020:1137]

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

[10.1020]

[10.1137]

        return _match(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                      _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in string.awk at line 27 [10.35]

B:BD[10.1212] → [10.1212:1331]

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

[10.1212]

[10.1331]

        return _split2(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                       _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in string.awk at line 32 [10.35]

B:BD[10.1464] → [10.1464:1521]

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

[10.1464]

[10.1521]

        return _sub3(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),

Replacement in string.awk at line 34 [10.35]

B:BD[10.1543] → [10.1543:1665]

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

[10.1543]

[10.1665]

                     _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp),
                     _eval3(_car(_cdddr(form)), env, env, d+1, hdlrs, st, errp))

Replacement in string.awk at line 37 [10.35]

B:BD[10.1701] → [10.1701:1883]

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

[10.1701]

[10.1883]

        return _gsub3(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                      _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp),
                      _eval3(_car(_cdddr(form)), env, env, d+1, hdlrs, st, errp))

Replacement in string.awk at line 42 [10.35]

B:BD[10.1937] → [10.1937:2044]

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

[10.1937]

[10.2044]

        return _sprintf(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                        _cddr(form), env, d+1, hdlrs, st, errp)

Replacement in string.awk at line 45 [10.35]

B:BD[10.2089] → [10.2089:2155]

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

[10.2089]

[10.2155]

        return _string_length(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in string.awk at line 48 [10.35]

B:BD[10.2218] → [5.0:45]

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

[10.2218]

[10.2253]

        return _strcat(_cdr(form), env, d+1, hdlrs, st, errp)

Replacement in string.awk at line 50 [10.35]

B:BD[10.2295] → [10.2295:2358]

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

[10.2295]

[10.2358]

        return _shellquote(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in string.awk at line 188 [10.35]

B:BD[10.5968] → [10.5968:6023]

function _strcat(unevald, env, d,      s, here, val) {

[10.5968]

[10.6023]

function _strcat(unevald, env, d, hdlrs, st, errp,      s, here, val) {

Replacement in string.awk at line 191 [10.35]

B:BD[10.6092] → [10.6092:6140]

        val = _eval3(_car(here), env, env, d+1)

[10.6092]

[10.6140]

        val = _eval3(_car(here), env, env, d+1, hdlrs, st, errp)

Insertion in string.awk at line 229 [10.35]
[10.7149]
[10.7149]

Replacement in string.awk at line 246 [10.35]

B:BD[10.7572] → [10.7572:7645]

function _sprintf(fmt, unevald, env, d,      dlave, evald, s, a, i, p) {

[10.7572]

[10.7645]

function _sprintf(fmt, unevald, env, d, hdlrs, st, errp,     dlave, evald, s, a, i, p) {

Replacement in string.awk at line 251 [10.35]

B:BD[10.7799] → [10.7799:7866]

        dlave = _cons(_eval3(_car(unevald), env, env, d+1), dlave)

[10.7799]

[10.7866]

        dlave = _cons(_eval3(_car(unevald), env, env, d+1, hdlrs, st, errp), dlave)

Deletion in sane_lisp at line 52 [12.900]
∅:D[11.178] → [12.1747:1748]
B:BD[12.1747] → [12.1747:1748]

Replacement in sane_lisp at line 60 [12.900]

B:BD[12.2043] → [12.2043:2087]

    local output="$(lisp_with_string "$1")"

[12.2043]

[13.0]

    local tf=$(mktemp)
    lisp_with_string "$1" >$tf

Replacement in sane_lisp at line 63 [12.900]

B:BD[13.22] → [13.22:58]

    if [ "$exitcode" -ne 0 ] ; then

[13.22]

[13.58]

    local output=$(cat $tf)
    if [ "$exitcode" -ne ${4:-0} ] ; then

Insertion in sane_lisp at line 255 [12.900]

[7.437]

[11.1583]

lisp_eval_should_be '(abort "it is a format string %d" 42)' '' 'abort' 87
lisp_eval_should_be '(error "oh no")' '' 'error' 87
lisp_eval_should_be '(abort "what if we %s?" (abort "aaaaaaa"))' '' 'abort while aborting' 88
lisp_eval_should_be '(handle (lambda (st) "be cool") (error "oh no"))' '"be cool"' 'handle'

Replacement in osf.awk at line 4 [14.954]

B:BD[14.956] → [14.956:1021]

function _eval3_other_special_forms(form, env, d,      car, a) {

[14.956]

[14.1021]

function _eval3_other_special_forms(form, env, d, hdlrs, st, errp,      car, a, no_errp) {

Replacement in osf.awk at line 7 [14.954]

∅:D[10.9741] → [15.259:321]

B:BD[15.259] → [15.259:321]

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

[10.9741]

[16.23]

        return _as_number(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in osf.awk at line 25 [14.954]

B:BD[17.60] → [18.0:76]

        return _dump_overwrite(_STRING[_eval3(_cadr(form), env, env, d+1)])

[17.60]

[18.76]

        return _dump_overwrite(_STRING[_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp)])

Replacement in osf.awk at line 27 [14.954]

B:BD[18.119] → [18.119:192]

        return _dump_append(_STRING[_eval3(_cadr(form), env, env, d+1)])

[18.119]

[19.1380]

        return _dump_append(_STRING[_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp)])

Replacement in osf.awk at line 32 [14.954]

B:BD[19.1619] → [19.1619:1776]

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

[19.1619]

[16.700]

        return _dump_append_changing_main(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                                          _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in osf.awk at line 35 [14.954]

B:BD[16.740] → [17.127:197]

        return _dump_dot(_STRING[_eval3(_cadr(form), env, env, d+1)])

[16.740]

[20.4423]

        return _dump_dot(_STRING[_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp)])

Replacement in osf.awk at line 44 [14.954]

B:BD[8.37] → [8.37:72]

        _abort(_cdr(form), env, d)

[8.37]

[14.3499]

        _abort(_cdr(form), env, d+1, hdlrs, st, errp)
    else if(car == _symbol("error")) {
#        logg_err("_eval3", "error raised!", d)
        errp[1] = 1
        if(_is_null(hdlrs)) {
            _abort(_cdr(form), #_cons(_string("unhandled error"), _nil()),
                   env, d+1, hdlrs, st, errp)
        } else {
            # we have to get back to the (awk) frame where the handler
            # was added. there are checks for errp[1] in plenty of
            # places above that forestall further evaluation until the
            # handler kicks in.
            return _nil()
        }
    } else if(car == _symbol("handle")) {
        hdlrs = _cons(_cadr(form), hdlrs) # unevaluated fwiw
        x = _evprog(_cddr(form), env, env, d+1, hdlrs, st, errp)
        if(errp[1]) {
            # don't pass a true errp in: the eval will quit
            delete no_errp
            no_errp[1] = 0
            return _eval3(_cons(_car(hdlrs),
                                _cons(_cons(_symbol("quote"),
                                            _cons(st, _nil())),
                                      _nil())),
                          env, env, d+1, _cdr(hdlrs), st, no_errp)
        } else  {
            return x
        }
    }

Replacement in osf.awk at line 92 [14.954]

B:BD[8.74] → [8.74:115]

function _abort(form, env, d,       s) {

[8.74]

[8.115]

function _abort(form, env, d, hdlrs, st, errp,       s, abort_errp) {

Replacement in osf.awk at line 99 [14.954]

B:BD[8.274] → [8.274:420]

    s = _sprintf(_eval3(_car(form), env, env, d+1),
                 _cdr(form), env, d+1)
    print "GLOTAWK ABORT: " _STRING[s] > "/dev/stderr"

[8.274]

[8.420]

    abort_errp[1] = 0
    # we are going to exit. don't deal with the handlers at this point.
    s = _sprintf(_eval3(_car(form), env, env, d+1, _nil(), st, abort_errp),
                 _cdr(form), env, d+1, _nil(), st, abort_errp)
    print "****** GLOTAWK ABORTING: " _STRING[s] > "/dev/stderr"
    if(st) {
        print "****** ENVIRONMENT" > "/dev/stderr"
        for(; !_is_null(env); env=_cdr(env)) {
            if(env && _car(env))
                print "  " _repr(_car(env)) > "/dev/stderr"
        }
        print "****** STACK TRACE" > "/dev/stderr"
        for(; !_is_null(st); st=_cdr(st)) {
            if(st && _car(st))
                print "  evaling " _repr(_car(st)) > "/dev/stderr"
        }
        print "******" > "/dev/stderr"
    }

Replacement in math.awk at line 4 [14.10161]
∅:D[21.361] → [14.10162:10213]
B:BD[14.10161] → [14.10162:10213]
```
function _eval3_math(form, env, d,       car, a) {
```
[21.361]
[14.10213]
```
function _eval3_math(form, env, d, hdlrs, st, errp,       car, a) {
```

Replacement in math.awk at line 7 [14.10161]

B:BD[2.28] → [2.28:139]

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

[2.28]

[2.139]

        return _gt(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                   _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 10 [14.10161]

B:BD[2.172] → [2.172:283]

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

[2.172]

[2.283]

        return _lt(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                   _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 13 [14.10161]

B:BD[2.316] → [2.316:441]

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

[2.316]

[2.441]

        return _number_eq(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                          _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 16 [14.10161]

B:BD[2.475] → [2.475:600]

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

[2.475]

[2.600]

        return _number_ne(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                          _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 19 [14.10161]

B:BD[2.634] → [2.634:745]

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

[2.634]

[2.745]

        return _ge(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                   _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 22 [14.10161]

B:BD[2.779] → [2.779:890]

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

[2.779]

[2.890]

        return _le(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                   _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 25 [14.10161]

∅:D[2.928] → [14.10267:10392]

B:BD[14.10267] → [14.10267:10392]

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

[2.928]

[14.10392]

        return _only2_add(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                          _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 28 [14.10161]

B:BD[14.10430] → [14.10430:10565]

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

[14.10430]

[14.10565]

        return _only2_multiply(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                               _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 31 [14.10161]

B:BD[14.10603] → [14.10603:10738]

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

[14.10603]

[14.10738]

        return _only2_subtract(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                               _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 34 [14.10161]

B:BD[14.10776] → [14.10776:10907]

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

[14.10776]

[14.10907]

        return _only2_divide(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                             _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 38 [14.10161]

B:BD[14.10980] → [14.10980:11077]

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

[14.10980]

[14.11077]

            _eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
            _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 41 [14.10161]

B:BD[14.11115] → [14.11115:11246]

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

[14.11115]

[14.11246]

        return _only2_modulo(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                             _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 44 [14.10161]

B:BD[14.11285] → [14.11285:11414]

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

[14.11285]

[14.11414]

        return _only2_power(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                            _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 47 [14.10161]

B:BD[14.11451] → [14.11451:11568]

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

[14.11451]

[14.11568]

        return _atan2(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                      _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 50 [14.10161]

B:BD[14.11603] → [14.11603:11659]

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

[14.11603]

[14.11659]

        return _cos(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 52 [14.10161]

B:BD[14.11694] → [14.11694:11750]

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

[14.11694]

[14.11750]

        return _sin(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 54 [14.10161]

B:BD[14.11785] → [14.11785:11841]

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

[14.11785]

[14.11841]

        return _exp(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 56 [14.10161]

B:BD[14.11876] → [14.11876:11932]

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

[14.11876]

[14.11932]

        return _log(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 58 [14.10161]

B:BD[14.11968] → [14.11968:12025]

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

[14.11968]

[14.12025]

        return _sqrt(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 62 [14.10161]

B:BD[14.12129] → [14.12129:12187]

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

[14.12129]

[14.12187]

        return _srand(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in math.awk at line 64 [14.10161]

B:BD[14.12222] → [14.12222:12278]

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

[14.12222]

[14.12278]

        return _int(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in lib.glotawk at line 138 [22.36]

B:BD[9.36] → [9.36:702]

  (let ((problem false))
    (label ((shellquote-string
             (lambda (x)
               (cond ((stringp x) (shellquote x))
                     ((eq x :pipe) "|")
                     ((eq x :gt)   ">")
                     ((eq x :gtgt) ">>")
                     ((eq x :lt)   "<")
                     ((keywordp x) (keyword-name x)) ; unquoted!
                     (true (setq problem true))))))
           (let ((words (mapcar shellquote-string argv)))
             (cond
              (problem (abort "make-safe-shell-command: could not with argv %s"
                              (repr argv)))
              (true (apply string-join " " words)))))))

[9.36]

[23.1272]

  (label ((shellquote-string
           (lambda (x)
             (cond ((stringp x) (shellquote x))
                   ((eq x :pipe) "|")
                   ((eq x :gt)   ">")
                   ((eq x :gtgt) ">>")
                   ((eq x :lt)   "<")
                   ((keywordp x) (keyword-name x)) ; unquoted!
                   (true (error "cannot use %s to make-safe-shell-command"
                                (repr x)))))))
         (apply string-join " " (mapcar shellquote-string argv))))

Replacement in io.awk at line 5 [10.9773]

B:BD[10.9816] → [10.9816:9865]

function _eval3_io(form, env, d,       car, a) {

[10.9816]

[10.9865]

function _eval3_io(form, env, d, hdlrs, st, errp,       car, a) {

Replacement in io.awk at line 10 [10.9773]

B:BD[10.9995] → [10.9995:10100]

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

[10.9995]

[10.10100]

        return _printf(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                       _cddr(form), env, d+1, hdlrs, st, errp)

Replacement in io.awk at line 13 [10.9773]

B:BD[10.10145] → [10.10145:10211]

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

[10.10145]

[10.10211]

        return _unsafe_system(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in io.awk at line 17 [10.9773]

B:BD[10.10316] → [10.10316:10456]

        return _with_ors(_eval3(_cadr(form), env, env, d+1),
                         _cddr(form), env, d+1) # to be evaluated using evprog

[10.10316]

[10.10456]

        return _with_ors(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                         _cddr(form), env, d+1, hdlrs, st, errp) # to be evaluated using evprog

Replacement in io.awk at line 20 [10.9773]

B:BD[10.10495] → [10.10495:10633]

        return _with_rs(_eval3(_cadr(form), env, env, d+1),
                        _cddr(form), env, d+1) # to be evaluated using evprog

[10.10495]

[10.10633]

        return _with_rs(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                        _cddr(form), env, d+1, hdlrs, st, errp) # to be evaluated using evprog

Replacement in io.awk at line 23 [10.9773]

B:BD[10.10672] → [10.10672:10810]

        return _with_fs(_eval3(_cadr(form), env, env, d+1),
                        _cddr(form), env, d+1) # to be evaluated using evprog

[10.10672]

[10.10810]

        return _with_fs(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                        _cddr(form), env, d+1, hdlrs, st, errp) # to be evaluated using evprog

Replacement in io.awk at line 26 [10.9773]

B:BD[10.10856] → [10.10856:11064]

        return _with_output_to(_eval3(_cadr(form), env, env, d+1),
                               _eval3(_caddr(form), env, env, d+1),
                               _cdddr(form), env, d+1) # to be evprogged

[10.10856]

[10.11064]

        return _with_output_to(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                               _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp),
                               _cdddr(form), env, d+1, hdlrs, st, errp) # to be evprogged

Replacement in io.awk at line 30 [10.9773]

B:BD[10.11111] → [10.11111:11322]

        return _with_input_from(_eval3(_cadr(form), env, env, d+1),
                                _eval3(_caddr(form), env, env, d+1),
                                _cdddr(form), env, d+1) # to be evprogged

[10.11111]

[10.11322]

        return _with_input_from(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                                _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp),
                                _cdddr(form), env, d+1, hdlrs, st, errp) # to be evprogged

Replacement in io.awk at line 34 [10.9773]

B:BD[10.11360] → [10.11360:11419]

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

[10.11360]

[10.11419]

        return _getenv(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in io.awk at line 36 [10.9773]

B:BD[10.11457] → [10.11457:11576]

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

[10.11457]

[10.11576]

        return _setenv(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp),
                       _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp))

Replacement in io.awk at line 41 [10.9773]

B:BD[10.11676] → [10.11676:11734]

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

[10.11676]

[20.4735]

        return _close(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in io.awk at line 43 [10.9773]

B:BD[20.4771] → [20.4771:4828]

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

[20.4771]

[10.11734]

        return _load(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in io.awk at line 48 [10.9773]

B:BD[10.11794] → [10.11794:11866]

function _printf(fmt, unevald, env, d,      dlave, evald, s, a, i, p) {

[10.11794]

[10.11866]

function _printf(fmt, unevald, env, d, hdlrs, st, errp,     dlave, evald, s, a, i, p) {

Replacement in io.awk at line 53 [10.9773]

B:BD[10.11983] → [10.11983:12050]

        dlave = _cons(_eval3(_car(unevald), env, env, d+1), dlave)

[10.11983]

[10.12050]

        dlave = _cons(_eval3(_car(unevald), env, env, d+1, hdlrs, st, errp), dlave)

Replacement in io.awk at line 173 [10.9773]

B:BD[10.16319] → [10.16319:16383]

function _with_ors(new_ors, forms, env, d,       old_ors, rv) {

[10.16319]

[10.16383]

function _with_ors(new_ors, forms, env, d, hdlrs, st, errp,       old_ors, rv) {

Replacement in io.awk at line 177 [10.9773]

B:BD[10.16464] → [10.16464:16505]

        rv = _evprog(forms, env, env, d)

[10.16464]

[10.16505]

        rv = _evprog(forms, env, env, d, hdlrs, st, errp)

Replacement in io.awk at line 186 [10.9773]

B:BD[10.16646] → [10.16646:16707]

function _with_rs(new_rs, forms, env, d,       old_rs, rv) {

[10.16646]

[10.16707]

function _with_rs(new_rs, forms, env, d, hdlrs, st, errp,       old_rs, rv) {

Replacement in io.awk at line 190 [10.9773]

B:BD[10.16783] → [10.16783:16824]

        rv = _evprog(forms, env, env, d)

[10.16783]

[10.16824]

        rv = _evprog(forms, env, env, d, hdlrs, st, errp)

Replacement in io.awk at line 199 [10.9773]

B:BD[10.16961] → [10.16961:17022]

function _with_fs(new_fs, forms, env, d,       old_fs, rv) {

[10.16961]

[10.17022]

function _with_fs(new_fs, forms, env, d, hdlrs, st, errp,       old_fs, rv) {

Replacement in io.awk at line 203 [10.9773]

B:BD[10.17098] → [10.17098:17139]

        rv = _evprog(forms, env, env, d)

[10.17098]

[10.17139]

        rv = _evprog(forms, env, env, d, hdlrs, st, errp)

Replacement in io.awk at line 217 [10.9773]

B:BD[10.17464] → [10.17464:17560]

function _with_output_to(redir_kind, name, forms, env, d,       old_redir_kind, old_name, rv) {

[10.17464]

[10.17560]

function _with_output_to(redir_kind, name, forms, env, d, hdlrs, st, errp,       old_redir_kind, old_name, rv) {

Replacement in io.awk at line 224 [10.9773]

B:BD[10.17802] → [10.17802:17847]

            rv = _evprog(forms, env, env, d)

[10.17802]

[10.17847]

            rv = _evprog(forms, env, env, d, hdlrs, st, errp)

Replacement in io.awk at line 243 [10.9773]

B:BD[10.18467] → [10.18467:18564]

function _with_input_from(redir_kind, name, forms, env, d,       old_redir_kind, old_name, rv) {

[10.18467]

[10.18564]

function _with_input_from(redir_kind, name, forms, env, d, hdlrs, st, errp,       old_redir_kind, old_name, rv) {

Replacement in io.awk at line 250 [10.9773]

B:BD[10.18802] → [10.18802:18847]

            rv = _evprog(forms, env, env, d)

[10.18802]

[10.18847]

            rv = _evprog(forms, env, env, d, hdlrs, st, errp)

Insertion in first-symbols.awk at line 121 [14.17737]
[8.456]
[14.19392]
```
    _symbol("error")
    _symbol("handle")
```

Replacement in eval.awk at line 25 [12.11057]

B:BD[24.26239] → [25.1652:1697]

function _evprog(forms, env, outer_env, d) {

[24.26239]

[26.693]

function _evprog(forms, env, outer_env, d, hdlrs, st, errp,      last) {

Insertion in eval.awk at line 31 [12.11057]
[24.26478]
[26.770]
```
        if(errp[1]) return _nil()
```

Replacement in eval.awk at line 33 [12.11057]

∅:D[26.845] → [25.1847:1918]

B:BD[25.1847] → [25.1847:1918]

        _eval3(_car(forms), env, env, d) # and throw away return value

[26.845]

[24.26617]

        _eval3(_car(forms), env, env, d, hdlrs, st, errp) # and throw away return value

Replacement in eval.awk at line 40 [12.11057]
∅:D[26.941] → [25.2013:2063]
B:BD[25.2013] → [25.2013:2063]
```
    return _eval3(_car(forms), env, outer_env, d)
```
[26.941]
[24.26964]
```
    return _eval3(_car(forms), env, outer_env, d, hdlrs, st, errp)
```

Replacement in eval.awk at line 43 [12.11057]

B:BD[27.88] → [27.88:141]

function _evprog1(forms, env, outer_env, d,    rv) {

[27.88]

[27.141]

function _evprog1(forms, env, outer_env, d, hdlrs, st, errp,    rv) {

Replacement in eval.awk at line 46 [12.11057]

B:BD[27.187] → [27.187:267]

    rv = _eval3(_car(forms), env, env, d)
    _evprog(_cdr(forms), env, env, d)

[27.187]

[27.267]

    rv = _eval3(_car(forms), env, env, d, hdlrs, st, errp)
    if(errp[1]) return _nil()
    _evprog(_cdr(forms), env, env, d, hdlrs, st, errp)

Replacement in eval.awk at line 52 [12.11057]

∅:D[27.284] → [25.2064:2126]

B:BD[24.26974] → [25.2064:2126]

function _evcon(clauses, env, outer_env, d,   tmp, actions) {

[27.284]

[26.942]

function _evcon(clauses, env, outer_env, d, hdlrs, st, errp,   tmp, actions) {

Replacement in eval.awk at line 57 [12.11057]

B:BD[24.27222] → [25.2184:2252]

        tmp = _eval3(_caar(clauses), env, env, d+1) # the condition

[24.27222]

[26.1001]

        if(errp[1]) return _nil()
        tmp = _eval3(_caar(clauses), env, env, d+1, hdlrs, st, errp) # the condition

Replacement in eval.awk at line 72 [12.11057]

B:BD[24.27805] → [25.2504:2561]

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

[24.27805]

[24.27857]

            return _evprog(actions, env, outer_env, d+1, hdlrs, st, errp)

Replacement in eval.awk at line 79 [12.11057]

B:BD[24.27943] → [25.2562:2635]

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

[24.27943]

[24.28014]

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

Replacement in eval.awk at line 92 [12.11057]

B:BD[24.28341] → [25.2752:2810]

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

[24.28341]

[24.28394]

            arg_value = _eval3(_car(args), env, env, d+1, hdlrs, st, errp)
            if(errp[1]) return _nil()

Replacement in eval.awk at line 106 [12.11057]

B:BD[24.28728] → [25.2879:2946]

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

[24.28728]

[24.28790]

                          _cons(_eval3(_car(args), env, env, d+1, hdlrs, st, errp),

Replacement in eval.awk at line 110 [12.11057]

B:BD[24.28931] → [25.3019:3090]

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

[24.28931]

[12.12353]

                     _bind(_cdr(vars), _cdr(args), env, outer_env, d, hdlrs, st, errp))

Replacement in eval.awk at line 114 [12.11057]

B:BD[12.12362] → [25.3091:3137]

function _bindseq(bindings, env, d,   b, v) {

[12.12362]

[24.29043]

function _bindseq(bindings, env, d, hdlrs, st, errp,     b, v) {

Replacement in eval.awk at line 118 [12.11057]

B:BD[24.29231] → [25.3138:3190]

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

[24.29231]

[24.29278]

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

Replacement in eval.awk at line 166 [12.11057]

B:BD[12.13303] → [25.3663:3720]

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

[12.13303]

[26.2023]

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

Replacement in eval.awk at line 196 [12.11057]

B:BD[28.1537] → [25.3788:3855]

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

[28.1537]

[28.1600]

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

Replacement in eval.awk at line 215 [12.11057]

∅:D[26.2236] → [29.4183:4244]

B:BD[29.4183] → [29.4183:4244]

                return _expand(_eval(acc, depth+1), depth+1)

[26.2236]

[29.4244]

                return _expand(_eval(acc, depth+1), depth+1, hdlrs, st, errp)

Replacement in eval.awk at line 221 [12.11057]

B:BD[29.4277] → [29.4277:4336]

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

[29.4277]

[30.61]

function _expand1(form, depth, hdlrs, st, errp,    car, mpair, app, acc) {

Replacement in eval.awk at line 245 [12.11057]

B:BD[31.3565] → [31.3565:3624]

                acc = _eval3(acc, _nil(), _nil(), depth+1)

[31.3565]

[31.3624]

                acc = _eval3(acc, _nil(), _nil(), depth+1, hdlrs, st, errp)

Replacement in eval.awk at line 253 [12.11057]

B:BD[32.1097] → [33.2999:3055]

function _apply(args, env, depth,      last, butlast) {

[32.1097]

[33.3055]

function _apply(args, env, depth, hdlrs, st, errp,      last, butlast) {

Replacement in eval.awk at line 258 [12.11057]

B:BD[33.3221] → [33.3221:3266]

        return _eval3(args, env, env, depth)

[33.3221]

[33.3266]

        return _eval3(args, env, env, depth, hdlrs, st, errp)

Replacement in eval.awk at line 268 [12.11057]

∅:D[34.124] → [33.3735:3788]

B:BD[33.3735] → [33.3735:3788]

        last = _eval3(_car(last), env, env, depth+1)

[34.124]

[33.3788]

        last = _eval3(_car(last), env, env, depth+1, hdlrs, st, errp)

Replacement in eval.awk at line 273 [12.11057]

B:BD[33.4025] → [33.4025:4074]

            return _eval3(args, env, env, depth)

[33.4025]

[33.4074]

            return _eval3(args, env, env, depth, hdlrs, st, errp)

Replacement in eval.awk at line 277 [12.11057]

B:BD[33.4246] → [33.4246:4295]

            return _eval3(args, env, env, depth)

[33.4246]

[33.4295]

            return _eval3(args, env, env, depth, hdlrs, st, errp)

Replacement in eval.awk at line 287 [12.11057]

B:BD[32.4266] → [14.19693:19747]

function _eval3_other_lispy(form, env, d,   car, a) {

[32.4266]

[14.19747]

function _eval3_other_lispy(form, env, d, hdlrs, st, errp,    car, a) {

Replacement in eval.awk at line 290 [12.11057]

B:BD[14.19799] → [14.19799:19914]

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

[14.19799]

[14.19914]

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

Replacement in eval.awk at line 293 [12.11057]

B:BD[14.19952] → [14.19952:20071]

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

[14.19952]

[14.20071]

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

Replacement in eval.awk at line 296 [12.11057]

B:BD[14.20108] → [14.20108:20225]

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

[14.20108]

[14.20225]

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

Replacement in eval.awk at line 300 [12.11057]

B:BD[14.20297] → [14.20297:20357]

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

[14.20297]

[14.20357]

                       _eval3(_caddr(form), env, env, d+1, hdlrs, st, errp),

Replacement in eval.awk at line 303 [12.11057]

B:BD[14.20422] → [14.20422:20480]

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

[14.20422]

[14.20480]

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

Replacement in eval.awk at line 305 [12.11057]

B:BD[14.20517] → [14.20517:20575]

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

[14.20517]

[14.20575]

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

Replacement in eval.awk at line 307 [12.11057]

B:BD[14.20612] → [14.20612:20670]

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

[14.20612]

[14.20670]

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

Replacement in eval.awk at line 309 [12.11057]

B:BD[14.20707] → [14.20707:20765]

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

[14.20707]

[14.20765]

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

Replacement in eval.awk at line 311 [12.11057]

B:BD[14.20802] → [14.20802:20860]

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

[14.20802]

[14.20860]

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

Replacement in eval.awk at line 313 [12.11057]

B:BD[14.20897] → [14.20897:20955]

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

[14.20897]

[14.20955]

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

Replacement in eval.awk at line 315 [12.11057]

B:BD[14.20992] → [14.20992:21050]

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

[14.20992]

[14.21050]

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

Replacement in eval.awk at line 317 [12.11057]

B:BD[14.21087] → [14.21087:21145]

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

[14.21087]

[14.21145]

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

Replacement in eval.awk at line 319 [12.11057]

B:BD[14.21183] → [14.21183:21304]

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

[14.21183]

[14.21304]

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

Replacement in eval.awk at line 322 [12.11057]

B:BD[14.21342] → [14.21342:21463]

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

[14.21342]

[14.21463]

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

Replacement in eval.awk at line 325 [12.11057]

B:BD[14.21503] → [14.21503:21564]

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

[14.21503]

[14.21564]

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

Replacement in eval.awk at line 327 [12.11057]

B:BD[14.21601] → [14.21601:21718]

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

[14.21601]

[14.21718]

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

Replacement in eval.awk at line 330 [12.11057]

B:BD[14.21756] → [14.21756:21875]

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

[14.21756]

[33.4315]

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

Replacement in eval.awk at line 333 [12.11057]

B:BD[33.4352] → [33.4352:4396]

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

[33.4352]

[14.21875]

        return _apply(_cdr(form), env, d+1, hdlrs, st, errp)

Replacement in eval.awk at line 335 [12.11057]

B:BD[14.21918] → [14.21918:21982]

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

[14.21918]

[14.21982]

        return _list_length(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in eval.awk at line 337 [12.11057]

B:BD[14.22021] → [14.22021:22072]

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

[14.22021]

[35.2259]

        _print(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in eval.awk at line 340 [12.11057]

B:BD[4.59] → [4.59:125]

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

[4.59]

[4.125]

        return _string(_repr(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp)))

Replacement in eval.awk at line 342 [12.11057]

∅:D[4.162] → [14.22112:22162]

B:BD[14.22112] → [14.22112:22162]

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

[4.162]

[27.285]

        return _evprog(_cdr(form), env, env, d+1, hdlrs, st, errp)

Replacement in eval.awk at line 344 [12.11057]

B:BD[27.322] → [27.322:373]

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

[27.322]

[14.22162]

        return _evprog1(_cdr(form), env, env, d+1, hdlrs, st, errp)

Replacement in eval.awk at line 349 [12.11057]

B:BD[14.22339] → [36.0:42]

        return _expand1(_cadr(form), d+1)

[14.22339]

[37.380]

        return _expand1(_cadr(form), d+1, hdlrs, st, errp)

Replacement in eval.awk at line 351 [12.11057]

B:BD[37.419] → [37.419:498]

        return _lispify_bool(_TYPE[_eval3(_cadr(form), env, env, d+1)] == "'")

[37.419]

[37.498]

        return _lispify_bool(_TYPE[_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp)] == "'")

Replacement in eval.awk at line 353 [12.11057]

B:BD[37.535] → [37.535:614]

        return _lispify_bool(_TYPE[_eval3(_cadr(form), env, env, d+1)] == "(")

[37.535]

[37.614]

        return _lispify_bool(_TYPE[_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp)] == "(")

Replacement in eval.awk at line 355 [12.11057]

B:BD[37.653] → [37.653:732]

        return _lispify_bool(_TYPE[_eval3(_cadr(form), env, env, d+1)] == "s")

[37.653]

[7.907]

        return _lispify_bool(_TYPE[_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp)] == "s")

Replacement in eval.awk at line 357 [12.11057]

B:BD[7.947] → [7.947:1020]

        return _lispify_bool(_eval3(_cadr(form), env, env, d+1) ~ /^k /)

[7.947]

[7.1020]

        return _lispify_bool(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp) ~ /^k /)

Replacement in eval.awk at line 360 [12.11057]

B:BD[7.1129] → [7.1129:1199]

        return _string(substr(_eval3(_cadr(form), env, env, d+1), 3))

[7.1129]

[14.22428]

        return _string(substr(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp), 3))

Replacement in eval.awk at line 363 [12.11057]

B:BD[14.22570] → [14.22570:22617]

        a = _eval3(_cadr(form), env, env, d+1)

[14.22570]

[14.22617]

        a = _eval3(_cadr(form), env, env, d+1, hdlrs, st, errp)

Replacement in eval.awk at line 365 [12.11057]

B:BD[14.22696] → [14.22696:22733]

        a = _eval3(a, env, env, d+1)

[14.22696]

[14.22733]

        a = _eval3(a, env, env, d+1, hdlrs, st, errp)

Replacement in eval.awk at line 374 [12.11057]

∅:D[32.4269] → [25.4551:4645]

B:BD[28.1796] → [25.4551:4645]

function _eval3(form, env, outer_env, d,   tv, t, v, n, cell, car, cdr, x, inner_env, a, b) {

[32.4269]

[6.186]

function _eval3(form, env, outer_env, d,   hdlrs, st, errp, tv, t, v, n, cell, car, cdr, x, inner_env, a, b) {

Replacement in eval.awk at line 377 [12.11057]

B:BD[6.292] → [6.292:366]

#        logg_dbg("_eval3","form is " form " containing " _repr(form), d)

[6.292]

[34.214]

#        logg_dbg("_eval3","errp? " errp[1] "; form is " form " containing " _repr(form), d)

Insertion in eval.awk at line 393 [12.11057]

[34.916]

#        logg_dbg("_eval3", "handlers? " (hdlrs ? _repr(hdlrs) : "nothing"), d)
#        logg_dbg("_eval3", "stack? " (st ? _repr(st) : "nothing"), d)

Insertion in eval.awk at line 396 [12.11057]

[34.923]

[12.13530]

    # remember, *mentioning* errp[1] makes it exist. tricky
    if(errp[1]) return _nil()

Insertion in eval.awk at line 407 [12.11057]
[12.13779]
[26.2590]
```
            st = _cons(form, st)
```

Replacement in eval.awk at line 412 [12.11057]

B:BD[12.13961] → [30.88:162]

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

[12.13961]

[24.30720]

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

Replacement in eval.awk at line 414 [12.11057]

B:BD[24.30766] → [30.163:308]

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

[24.30766]

[12.14019]

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

Replacement in eval.awk at line 417 [12.11057]

B:BD[12.14066] → [25.5099:5167]

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

[12.14066]

[12.14123]

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

Replacement in eval.awk at line 419 [12.11057]

B:BD[12.14170] → [25.5168:5236]

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

[12.14170]

[12.14227]

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

Replacement in eval.awk at line 421 [12.11057]

B:BD[12.14275] → [25.5237:5376]

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

[12.14275]

[12.14569]

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

Replacement in eval.awk at line 424 [12.11057]

B:BD[12.14617] → [29.4898:4959]

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

[12.14617]

[12.14669]

                    return _evcon(_cdr(form), env, env, d+1, hdlrs, st, errp)

Replacement in eval.awk at line 427 [12.11057]

∅:D[26.2763] → [25.5472:5536]

B:BD[25.5472] → [25.5472:5536]

                    inner_env = _bindseq(_cadr(form), env, d+1)

[26.2763]

[26.2764]

                    inner_env = _bindseq(_cadr(form), env, d+1, hdlrs, st, errp)

Replacement in eval.awk at line 429 [12.11057]

∅:D[26.2870] → [25.5641:5716]

B:BD[25.5641] → [25.5641:5716]

                    return _evprog(_cddr(form), inner_env, inner_env, d+1)

[26.2870]

[24.31525]

                    return _evprog(_cddr(form), inner_env, inner_env, d+1, hdlrs, st, errp)

Replacement in eval.awk at line 433 [12.11057]

B:BD[24.31706] → [38.134:219]

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

[24.31706]

[24.31771]

                    return _lispify_bool(_falsy(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp)))

Replacement in eval.awk at line 435 [12.11057]

B:BD[24.31819] → [3.115:202]

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

[24.31819]

[24.31886]

                    return _lispify_bool(_is_null(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp)))

Replacement in eval.awk at line 437 [12.11057]

B:BD[24.31935] → [30.309:460]

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

[24.31935]

[24.32066]

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

Replacement in eval.awk at line 440 [12.11057]

B:BD[24.32114] → [25.6003:6072]

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

[24.32114]

[24.32178]

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

Replacement in eval.awk at line 442 [12.11057]

B:BD[24.32226] → [25.6073:6142]

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

[24.32226]

[39.140]

                    return _cadr(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in eval.awk at line 444 [12.11057]

B:BD[39.188] → [39.188:257]

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

[39.188]

[39.257]

                    return _cdar(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in eval.awk at line 446 [12.11057]

B:BD[39.305] → [39.305:374]

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

[39.305]

[14.22908]

                    return _cddr(_eval3(_cadr(form), env, env, d+1, hdlrs, st, errp))

Replacement in eval.awk at line 451 [12.11057]

B:BD[14.23122] → [14.23122:23186]

                        return _eval3_other_lispy(form, env, d)

[14.23122]

[10.21012]

                        return _eval3_other_lispy(form, env, d, hdlrs, st, errp)

Replacement in eval.awk at line 453 [12.11057]

B:BD[10.21067] → [10.21067:21126]

                        return _eval3_string(form, env, d)

[10.21067]

[14.23186]

                        return _eval3_string(form, env, d, hdlrs, st, errp)

Replacement in eval.awk at line 455 [12.11057]

B:BD[14.23239] → [14.23239:23296]

                        return _eval3_math(form, env, d)

[14.23239]

[10.21127]

                        return _eval3_math(form, env, d, hdlrs, st, errp)

Replacement in eval.awk at line 457 [12.11057]

B:BD[10.21178] → [10.21178:21233]

∅:D[10.21233] → [14.23296:23369]

B:BD[14.23296] → [14.23296:23369]

                        return _eval3_io(form, env, d)
                    else return _eval3_other_special_forms(form, env, d)

[10.21178]

[14.23369]

                        return _eval3_io(form, env, d, hdlrs, st, errp)
                    else return _eval3_other_special_forms(form, env, d, hdlrs, st, errp)

Replacement in eval.awk at line 460 [12.11057]

∅:D[14.23394] → [25.8324:8375]

B:BD[24.35868] → [25.8324:8375]

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

[14.23394]

[24.35914]

                    x = _eval3(car, env, env, d+1, hdlrs, st, errp)

Replacement in eval.awk at line 465 [12.11057]

∅:D[32.5988] → [25.8491:8566]

B:BD[24.36128] → [25.8491:8566]

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

[32.5988]

[32.5989]

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

Replacement in eval.awk at line 478 [12.11057]

B:BD[24.36671] → [25.8630:8705]

                                         env, outer_env, d), outer_env, d)

[24.36671]

[24.36740]

                                         env, outer_env, d, hdlrs, st, errp),
                                   outer_env, d, hdlrs, st, errp)

Replacement in eval.awk at line 487 [12.11057]

∅:D[26.3489] → [25.8768:8838]

B:BD[25.8768] → [25.8768:8838]

                    inner_env = _bind(_cadr(car), cdr, env, env, d+1)

[26.3489]

[26.3490]

                    inner_env = _bind(_cadr(car), cdr, env, env, d+1, hdlrs, st, errp)

Replacement in eval.awk at line 491 [12.11057]

∅:D[26.3666] → [25.8904:8978]

B:BD[25.8904] → [25.8904:8978]

                    return _evprog(_cddr(car), inner_env, inner_env, d+1)

[26.3666]

[12.15810]

                    return _evprog(_cddr(car), inner_env, inner_env, d+1, hdlrs, st, errp)

Replacement in eval.awk at line 494 [12.11057]

∅:D[26.3763] → [25.9074:9158]

B:BD[25.9074] → [25.9074:9158]

                    return _eval3(_cons(_eval3(car, env, d+1), cdr), env, env, d+1)

[26.3763]

[12.15993]

                    return _eval3(_cons(_eval3(car, env, env, d+1, hdlrs, st, errp),
                                        cdr),
                                  env, env, d+1, hdlrs, st, errp)

Replacement in eval.awk at line 514 [12.11057]

B:BD[12.16466] → [25.9388:9483]

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

[12.16466]

[24.37802]

function _eval(form, depth,     hdlrs, st, errp) {
    if(!hdlrs) hdlrs = _nil()
    if(!st) st = _nil()
    delete errp
    errp[1] = 0
    return _eval3(_expand(form, depth+1), _nil(), _nil(), depth, hdlrs, st, errp)