From 39b94456cc8e70407641335184fbd8d46c2eadba Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 19 Jul 2021 06:58:36 -0700 Subject: 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. --- stdlib/op.tl | 4 ++-- 1 file 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)) -- cgit v1.2.3