diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-07-19 06:58:36 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-19 06:58:36 -0700 |
| commit | 39b94456cc8e70407641335184fbd8d46c2eadba (patch) | |
| tree | 801ed22899b5cb2b3f58e4b8de6c579273ee143b | |
| parent | 7e013a1c9cfed3cc64faf423f3b9a7613a7f02eb (diff) | |
| download | txr-39b94456cc8e70407641335184fbd8d46c2eadba.tar.gz txr-39b94456cc8e70407641335184fbd8d46c2eadba.tar.bz2 txr-39b94456cc8e70407641335184fbd8d46c2eadba.zip | |
op: rename argument for consistency.
* stdlib/op.tl (sys:op-meta-p): Rename expr argument to exp. The symbol
is not causing an issue here, but it's good to rename it for consistency
with sys:op-rec-p and to thwart future problems.
| -rw-r--r-- | stdlib/op.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/op.tl b/stdlib/op.tl index 236d0c25..305a82fa 100644 --- a/stdlib/op.tl +++ b/stdlib/op.tl @@ -46,8 +46,8 @@ ((sys:setq i (succ i))) (sys:setq l (cons (gensym `arg-@(if (plusp i) i "rest")-`) l))))) -(defun sys:op-meta-p (expr) - (tree-case expr +(defun sys:op-meta-p (exp) + (tree-case exp ((x y . r) (and (null r) (cond ((eq x 'sys:expr) (sys:op-meta-p y)) |