diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2019-08-28 17:14:38 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2019-08-28 17:14:38 -0700 |
commit | e0ef254ad0e1f5f3d9dac5ea8a8c527481a4f715 (patch) | |
tree | 4ff8ca5a0dd2f0363299626dbee54b7b8d1b8d01 /tests/009/pass1.json | |
parent | 31c42db88657d05b1f1347beeb6f4db53cf134bb (diff) | |
download | txr-e0ef254ad0e1f5f3d9dac5ea8a8c527481a4f715.tar.gz txr-e0ef254ad0e1f5f3d9dac5ea8a8c527481a4f715.tar.bz2 txr-e0ef254ad0e1f5f3d9dac5ea8a8c527481a4f715.zip |
compiler: mac params: late allocation for cursors.
* share/txr/stdlib/compiler.tl (expand-bind-mac-params):
Allocate the curs gensym only when about to recurse over a
nested parameter list, rather than unconditionally. Otherwise,
we always end up allocating one more gensym than we actually
use, for a lower nesting level that might not be there.
Don't use unwind-protect for returning the cursor variable to
the free-list; it makes no sense to be recovering that since
any exception will be abandoning this function entirely.
Diffstat (limited to 'tests/009/pass1.json')
0 files changed, 0 insertions, 0 deletions