diff options
| -rw-r--r-- | share/txr/stdlib/op.tl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/share/txr/stdlib/op.tl b/share/txr/stdlib/op.tl index e9ea8415..eb017cf4 100644 --- a/share/txr/stdlib/op.tl +++ b/share/txr/stdlib/op.tl @@ -82,6 +82,8 @@ (syntax-2 (sys:op-alpha-rename f e syntax-1 t)) (metas (slot ctx 'gens)) (rest-sym (sys:ensure-op-arg ctx 0))) + (unless args + ['compile-error f "arguments required"]) ^(lambda (,*(cdr metas) . ,rest-sym) ,(let ((fargs (cdr (cdr syntax-2)))) (cond |