diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-07-31 05:33:48 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-07-31 05:33:48 -0700 |
| commit | d8cf5c75653d94269ed6815b8a41ab55b85fc0de (patch) | |
| tree | ef54b48b27b1cb60d4c5c5d4a1b44b48de8bb796 /share | |
| parent | 0d75889dae241f39bbeaf74b59792e8bd225daf8 (diff) | |
| download | txr-d8cf5c75653d94269ed6815b8a41ab55b85fc0de.tar.gz txr-d8cf5c75653d94269ed6815b8a41ab55b85fc0de.tar.bz2 txr-d8cf5c75653d94269ed6815b8a41ab55b85fc0de.zip | |
Small code cleanup in tagbody.
* share/txr/stdlib/tagbody.tl (tagbody): Reduce unnecessary
use of DWIM brackets to parentheses in calculation of bblocks.
Remove entry-lbl local variable, propagating its initform
to its one and only use site.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/tagbody.tl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/share/txr/stdlib/tagbody.tl b/share/txr/stdlib/tagbody.tl index 7d9057e6..1756fd1b 100644 --- a/share/txr/stdlib/tagbody.tl +++ b/share/txr/stdlib/tagbody.tl @@ -28,11 +28,10 @@ (when forms (let* ((tb-id (gensym "tb-id-")) (next-var (gensym "next-")) - (bblocks [partition forms (op where [orf symbolp integerp chrp])]) - (start-lbl (and (car bblocks) [[orf symbolp integerp chrp] (caar bblocks)])) - (entry-lbl (if start-lbl (caar bblocks) (gensym "entry-")))) + (bblocks (partition forms (op where [orf symbolp integerp chrp]))) + (start-lbl (if bblocks [[orf symbolp integerp chrp] (caar bblocks)]))) (unless start-lbl - (push entry-lbl (car bblocks))) + (push (gensym "entry-") (car bblocks))) (if (and (not start-lbl) (not (cdr bblocks))) ^(progn nil ,*forms nil) (let* ((lbls [mapcar car bblocks]) |