diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-07-30 20:38:36 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-07-30 20:38:36 -0700 |
| commit | 2905dc035ded035c6db2b899c9634994725bcbb2 (patch) | |
| tree | 9afd4078695ace8b677d1f70a0a838c70fcc2b3e /mpi/mpi.c | |
| parent | f82ac2b966bdcaa983e0016190623742c38e39f1 (diff) | |
| download | txr-2905dc035ded035c6db2b899c9634994725bcbb2.tar.gz txr-2905dc035ded035c6db2b899c9634994725bcbb2.tar.bz2 txr-2905dc035ded035c6db2b899c9634994725bcbb2.zip | |
Optimize trivial tagbody.
* share/txr/stdlib/tagbody.tl (tagbody): If the body contains
no labels, then emit a simple block. Note that we should just
be emitting a progn here; however, there is a bug in tagbody
in that there is an anonymous block. This is not documented,
and a consequence of the looping construct used. So for now we
preserve that behavior in the reduced case.
Diffstat (limited to 'mpi/mpi.c')
0 files changed, 0 insertions, 0 deletions