diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-07-19 06:55:31 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-19 06:55:31 -0700 |
| commit | 7e013a1c9cfed3cc64faf423f3b9a7613a7f02eb (patch) | |
| tree | 773f4d0aa18ac88abeba0bec28335e3e08f11bcc /tests/012 | |
| parent | ed2a61da442ac22f8433c06634f749fbda4b1972 (diff) | |
| download | txr-7e013a1c9cfed3cc64faf423f3b9a7613a7f02eb.tar.gz txr-7e013a1c9cfed3cc64faf423f3b9a7613a7f02eb.tar.bz2 txr-7e013a1c9cfed3cc64faf423f3b9a7613a7f02eb.zip | |
op: consolidate testing for @rec/@(rec ...)
* stdlib/op.tl (sys:op-rec-p): Test for both the variable @rec
and the expresson @(rec ...). Also, the expr argument of the function is
renamed to exp because it causes a problem, due to that symbol,
sys:expr, being the meta indicator.
(sys:op-ensure-rec): Remove one test for (sys:var usr:rec), since
sys:op-rec-p does it. Convert one equal-test to a call to sys:op-rec-p.
Diffstat (limited to 'tests/012')
0 files changed, 0 insertions, 0 deletions