From 22774201563c6ef587898891419b49b3c809fb93 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 17 Jun 2021 06:55:13 -0700 Subject: op: add comment why cadr is not used. * share/txr/stdlib/op.tl (sys:op-expand): Comment added. We cannot use cadr because that triggers autoload of cadr.tl, which uses defplace, which requires place.tl, which requires op, which is what we are in the middle of defining. --- share/txr/stdlib/op.tl | 1 + 1 file changed, 1 insertion(+) (limited to 'share') diff --git a/share/txr/stdlib/op.tl b/share/txr/stdlib/op.tl index 809a7f09..182055f0 100644 --- a/share/txr/stdlib/op.tl +++ b/share/txr/stdlib/op.tl @@ -126,6 +126,7 @@ (let ((fargs-l1 (mapcar (lambda (farg) ^(sys:l1-val ,farg)) fargs))) + ;; no cadr here to avoid circular autoload ^[sys:apply ,(car (cdr syntax-2)) (append ,rest-sym (list ,*fargs-l1))])) (metas syntax-2) -- cgit v1.2.3