summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2023-11-13 18:50:20 -0800
committerKaz Kylheku <kaz@kylheku.com>2023-11-13 18:50:20 -0800
commit393ccf4a29c6b157f758fce6bcdcb9017ef74dc0 (patch)
tree154c1232bc315956b94f2b84fa8bc017df11f99a
parent25cf62c79c1cc0438636c5d0f16eef4294b1b279 (diff)
downloadtxr-393ccf4a29c6b157f758fce6bcdcb9017ef74dc0.tar.gz
txr-393ccf4a29c6b157f758fce6bcdcb9017ef74dc0.tar.bz2
txr-393ccf4a29c6b157f758fce6bcdcb9017ef74dc0.zip
place: bad indentation.
* stdlib/place.tl (dwim): Fix incorrect indentation.
-rw-r--r--stdlib/place.tl18
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/place.tl b/stdlib/place.tl
index 866e087f..3b3e011d 100644
--- a/stdlib/place.tl
+++ b/stdlib/place.tl
@@ -756,15 +756,15 @@
(sys:dwim-del t ,',obj-sym ,*',arg-syms))
,',oldval-sym)))))
,body))
- ^(macrolet ((,deleter ()
- ^(rlet ((,',obj-sym ,',obj-place)
- ,*(mapcar (ret ^(,@1 (sys:l1-val ,@2)))
- ',arg-syms ',args))
- (let ((,',oldval-sym [,',obj-sym ,*',arg-syms]))
- (progn
- (sys:dwim-del nil ,',obj-sym ,*',arg-syms)
- ,',oldval-sym)))))
- ,body))))))
+ ^(macrolet ((,deleter ()
+ ^(rlet ((,',obj-sym ,',obj-place)
+ ,*(mapcar (ret ^(,@1 (sys:l1-val ,@2)))
+ ',arg-syms ',args))
+ (let ((,',oldval-sym [,',obj-sym ,*',arg-syms]))
+ (progn
+ (sys:dwim-del nil ,',obj-sym ,*',arg-syms)
+ ,',oldval-sym)))))
+ ,body))))))
(defplace (force promise) body
(getter setter