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 | 692ab4124ab5a04615e794889ed7e551bd5aa75a (patch) | |
| tree | 154c1232bc315956b94f2b84fa8bc017df11f99a | |
| parent | 4814e7ef2e57b195b0f9718f5a8d59227690a562 (diff) | |
| download | txr-692ab4124ab5a04615e794889ed7e551bd5aa75a.tar.gz txr-692ab4124ab5a04615e794889ed7e551bd5aa75a.tar.bz2 txr-692ab4124ab5a04615e794889ed7e551bd5aa75a.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 |