diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-06-17 06:55:13 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-06-17 06:55:13 -0700 |
| commit | 61920681a7c785d6c287542592147374514fde5f (patch) | |
| tree | c2dd978237637d4b32a0dc9d06e8b66007e714f6 | |
| parent | 0d10d9dee1508229735a1c4e086d17ec9985e325 (diff) | |
| download | txr-61920681a7c785d6c287542592147374514fde5f.tar.gz txr-61920681a7c785d6c287542592147374514fde5f.tar.bz2 txr-61920681a7c785d6c287542592147374514fde5f.zip | |
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.
| -rw-r--r-- | share/txr/stdlib/op.tl | 1 |
1 files changed, 1 insertions, 0 deletions
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) |