diff options
| -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)) |