diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-05-23 19:02:14 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-05-23 19:02:14 -0700 |
| commit | 749b925f3a4f85178cd7db737aa194e2de15c493 (patch) | |
| tree | 8e0217e018e8bd305423f57f245aecac6258c77d /tests/015 | |
| parent | 42afde14b0e59de2e0f938806323dad9e2e5ed06 (diff) | |
| download | txr-749b925f3a4f85178cd7db737aa194e2de15c493.tar.gz txr-749b925f3a4f85178cd7db737aa194e2de15c493.tar.bz2 txr-749b925f3a4f85178cd7db737aa194e2de15c493.zip | |
compiler: streamline marking bindings used.
NB: Accesses to lexical variables are not all marked used yet.
* share/txr/stdlib/compiler.tl (binding): New slot, used.
(sys:env lookup-var, sys:env lookup-fun, sys:env lookup-lisp1,
sys:env lookup-block): Support optional Boolean argument
which, if true, causes the lookup to mark the binding used.
(compiler comp-return-from): Pass t to lookup-block, and
remove code to mark used.
(compiler comp-fun, compiler comp-fun-form): Pass t to
lookup-fun to mark function used.
(compiler comp-lisp1-value): Pass t to lookup-lisp1 to mark
function used.
Diffstat (limited to 'tests/015')
0 files changed, 0 insertions, 0 deletions