summaryrefslogtreecommitdiffstats
path: root/tests/009/pass1.json
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2019-08-28 17:14:38 -0700
committerKaz Kylheku <kaz@kylheku.com>2019-08-28 17:14:38 -0700
commite0ef254ad0e1f5f3d9dac5ea8a8c527481a4f715 (patch)
tree4ff8ca5a0dd2f0363299626dbee54b7b8d1b8d01 /tests/009/pass1.json
parent31c42db88657d05b1f1347beeb6f4db53cf134bb (diff)
downloadtxr-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