From 5b3089cd4438963c012c83d3aee38beadc13d06d Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 26 Jan 2021 20:33:17 -0800 Subject: 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. --- share/txr/stdlib/compiler.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3