summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2015-07-22 05:45:55 -0700
committerKaz Kylheku <kaz@kylheku.com>2015-07-22 05:45:55 -0700
commit954fc9f3e77125d3978dc41a48aae94e9a4d9eef (patch)
tree8669771198a357fec3f7e7d8a68db93099f63bad
parentf10ed814f895f2527b99fc6a55057617a7750ba7 (diff)
downloadtxr-954fc9f3e77125d3978dc41a48aae94e9a4d9eef.tar.gz
txr-954fc9f3e77125d3978dc41a48aae94e9a4d9eef.tar.bz2
txr-954fc9f3e77125d3978dc41a48aae94e9a4d9eef.zip
* share/txr/stdlib/place.tl: Indentation.
-rw-r--r--share/txr/stdlib/place.tl40
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