[GODCC][COMMITTED] godcc-list.a68: avoid unneccesary cpy in godcc_list.list_languages

[Jose E. Marchesi]

---
 src/godcc-list.a68 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/godcc-list.a68 b/src/godcc-list.a68
index dbbe9fb..041380a 100644
--- a/src/godcc-list.a68
+++ b/src/godcc-list.a68
@@ -24,11 +24,12 @@ begin
             JSON_Val languages := ce_get_json ("languages");
             for i to LEN languages
             do JSON_Val lang = languages->i;
+               JSON_Val extensions = lang->"extensions";
                puts (json_str (lang->"id"));
                puts (" (");
-               for j to LEN (lang->"extensions")
+               for j to LEN extensions
                do if j > 1 then  puts (", ") fi;
-                  puts (json_str (lang->"extensions"->j))
+                  puts (json_str (extensions->j))
                od;
                puts (")'n")
             od;
-- 
2.30.2