diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-11-13 18:50:20 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-11-13 18:50:20 -0800 |
| commit | 393ccf4a29c6b157f758fce6bcdcb9017ef74dc0 (patch) | |
| tree | 154c1232bc315956b94f2b84fa8bc017df11f99a | |
| parent | 25cf62c79c1cc0438636c5d0f16eef4294b1b279 (diff) | |
| download | txr-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.tl | 18 |
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 |