diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-07-19 07:26:56 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-19 07:26:56 -0700 |
| commit | ed7185e3fd6307d9c4bc97be606a08bd9ed3502f (patch) | |
| tree | 297c49b83b401c7415288d1adf16a17360203d56 /tests/012/cont.tl | |
| parent | 39b94456cc8e70407641335184fbd8d46c2eadba (diff) | |
| download | txr-ed7185e3fd6307d9c4bc97be606a08bd9ed3502f.tar.gz txr-ed7185e3fd6307d9c4bc97be606a08bd9ed3502f.tar.bz2 txr-ed7185e3fd6307d9c4bc97be606a08bd9ed3502f.zip | |
op: set nested flag in correct context.
* stdlib/op.tl (sys:op-meta-p): Return an extended Boolean value: a true
result is an integer indicating the depth of the variable.
For instance @1 is depth 0, @@1 is depth 1 and so on.
(sys:find-parent): New function.
(sys:op-alpha-rename): When processing a nested meta, do not
set the nested flag in the immediate parent. Use find-parent to go up to
the correct level to which the meta belongs and set the flag there.
* tests/012/op.tl: New test cases which depend on this.
Diffstat (limited to 'tests/012/cont.tl')
0 files changed, 0 insertions, 0 deletions