diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-01-26 20:33:17 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-01-26 20:33:17 -0800 |
| commit | 5b3089cd4438963c012c83d3aee38beadc13d06d (patch) | |
| tree | b9ff27304421367f51d26c4be63d48799e40229b | |
| parent | da9537ed0bc95c46e49a133daf97997eabc0ecf3 (diff) | |
| download | txr-5b3089cd4438963c012c83d3aee38beadc13d06d.tar.gz txr-5b3089cd4438963c012c83d3aee38beadc13d06d.tar.bz2 txr-5b3089cd4438963c012c83d3aee38beadc13d06d.zip | |
compiler: use consistent prefix for label gensyms.
* share/txr/stdlib/compiler.tl (compiler comp-lambda-impl):
Use the same "l" prefix for the skip label that is used
elsewhere in the compiler.
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 6d5dce38..4b08cdf8 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -883,7 +883,7 @@ (btreg me.(alloc-treg)) (bfrag me.(comp-progn btreg benv body)) (boreg (if env.(out-of-scope bfrag.oreg) btreg bfrag.oreg)) - (lskip (gensym "l-")) + (lskip (gensym "l")) (frsize (if need-frame nenv.v-cntr 0))) me.(free-treg btreg) (new (frag oreg |