diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2015-07-22 05:45:55 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2015-07-22 05:45:55 -0700 |
commit | 954fc9f3e77125d3978dc41a48aae94e9a4d9eef (patch) | |
tree | 8669771198a357fec3f7e7d8a68db93099f63bad | |
parent | f10ed814f895f2527b99fc6a55057617a7750ba7 (diff) | |
download | txr-954fc9f3e77125d3978dc41a48aae94e9a4d9eef.tar.gz txr-954fc9f3e77125d3978dc41a48aae94e9a4d9eef.tar.bz2 txr-954fc9f3e77125d3978dc41a48aae94e9a4d9eef.zip |
* share/txr/stdlib/place.tl: Indentation.
-rw-r--r-- | share/txr/stdlib/place.tl | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/share/txr/stdlib/place.tl b/share/txr/stdlib/place.tl index 1d748d99..9a3de089 100644 --- a/share/txr/stdlib/place.tl +++ b/share/txr/stdlib/place.tl @@ -334,26 +334,26 @@ (prog1 (cdr ,tmp) (,csetter (car ,tmp)))))))) ,body))) - (defplace (vecref vector index :whole args) body - (getter setter - (with-gensyms (vec-sym ind-sym) - ^(rlet ((,vec-sym ,vector) - (,ind-sym ,index)) - (macrolet ((,getter () ^(vecref ,',vec-sym ,',ind-sym)) - (,setter (val) ^(refset ,',vec-sym ,',ind-sym ,val))) - ,body)))) - (ssetter - ^(macrolet ((,ssetter (val) ^(refset ,*',args ,val))) - ,body)) - (deleter - (with-gensyms (vec-sym ind-sym) - ^(rlet ((,vec-sym ,vector) - (,ind-sym ,index)) - (macrolet ((,deleter () - ^(prog1 (vecref ,',vec-sym ,',ind-sym) - (replace-vec ,',vec-sym nil - ,',ind-sym (succ ,',ind-sym))))) - ,body))))) +(defplace (vecref vector index :whole args) body + (getter setter + (with-gensyms (vec-sym ind-sym) + ^(rlet ((,vec-sym ,vector) + (,ind-sym ,index)) + (macrolet ((,getter () ^(vecref ,',vec-sym ,',ind-sym)) + (,setter (val) ^(refset ,',vec-sym ,',ind-sym ,val))) + ,body)))) + (ssetter + ^(macrolet ((,ssetter (val) ^(refset ,*',args ,val))) + ,body)) + (deleter + (with-gensyms (vec-sym ind-sym) + ^(rlet ((,vec-sym ,vector) + (,ind-sym ,index)) + (macrolet ((,deleter () + ^(prog1 (vecref ,',vec-sym ,',ind-sym) + (replace-vec ,',vec-sym nil + ,',ind-sym (succ ,',ind-sym))))) + ,body))))) (defplace (chr-str string index :whole args) body (getter setter |