diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2025-03-11 22:50:05 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2025-03-11 22:50:05 -0700 |
| commit | 217bb7e691856e16f0b7490d6acbf715223b3a13 (patch) | |
| tree | 2e9d99acb89d2d153fd0bc11ec9a2d7c5f19f264 | |
| parent | e8d08d737e213f3a3a85002220762b512afbda92 (diff) | |
| download | txr-217bb7e691856e16f0b7490d6acbf715223b3a13.tar.gz txr-217bb7e691856e16f0b7490d6acbf715223b3a13.tar.bz2 txr-217bb7e691856e16f0b7490d6acbf715223b3a13.zip | |
place: fix bad indentation.
* stdlib/place.tl (sys:placelet-1): Fix a misindented
call-update-expander function call. Also indent its
arguments in function style.
| -rw-r--r-- | stdlib/place.tl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/place.tl b/stdlib/place.tl index 22c3e5b0..ae8b5b5d 100644 --- a/stdlib/place.tl +++ b/stdlib/place.tl @@ -994,10 +994,10 @@ ^(macrolet ((,tmp-getter () ^(,',pl-getter)) (,tmp-setter (val) ^(,',pl-setter ,val))) ,tmp-body))) - (call-update-expander pl-getter pl-setter place env - ^(macrolet ((,tmp-place () ^(,',pl-getter))) - ,(expand ^(symacrolet ((,sym (,tmp-place))) - ,*body) env)))) + (call-update-expander pl-getter pl-setter place env + ^(macrolet ((,tmp-place () ^(,',pl-getter))) + ,(expand ^(symacrolet ((,sym (,tmp-place))) + ,*body) env)))) (remhash *place-update-expander* tmp-place)))) (defmacro placelet* (:form f sym-place-pairs . body) |