Fix get_type_info()/closure_to_string() showing wrong program name

get_type_info(cl, 3) should return the program/inherit containing the
target function, but instead returned the object's main program.
Similarly closure_to_string() did not print the inherit name for
inherited functions.

src/closure.c

@@ -5879,8 +5879,6 @@ closure_lookup_lfun_prog ( lfun_closure_t * l
     if (*pProg != prog)
         is_inherited = MY_TRUE;
 
-    /* Copy the other result values */
-    *pProg = prog;
     *pIsInherited = is_inherited;
 } /* closure_lookup_lfun_prog() */
 

test/t-0000233/a2.c

@@ -57,3 +57,8 @@ closure get_a_var_cl4()
 {
     return lambda(0, ({symbol_variable("a_var")}));
 }
+
+closure get_a_calc_cl()
+{
+    return #'calc;
+}

test/t-0000233/b.c

@@ -34,3 +34,8 @@ closure get_b_var_cl2()
 {
     return lambda(0, ({#'b_var}));
 }
+
+closure get_b_calc_cl()
+{
+    return #'b_calc;
+}

test/t-0000233/c.c

@@ -34,3 +34,8 @@ closure get_c_var_cl2()
 {
     return lambda(0, ({#'c_var}));
 }
+
+closure get_c_calc_cl()
+{
+    return #'c_calc;
+}

test/t-0000233/master.c

@@ -126,6 +126,22 @@ void run_test()
                         return funcall(d->get_a_var_cl()) == "a";
                     :)
                 }),
+                ({ "Run " + testname + ": Check for program of closure in 'a'.", 0,
+                    (:
+                        return get_type_info(d.get_a_calc_cl(), 3) == "/a";
+                    :)
+                }),
+                ({ "Run " + testname + ": Check for program of closure in 'b'.", 0,
+                    (:
+                        return get_type_info(d.get_b_calc_cl(), 3) == "/b";
+                    :)
+                }),
+                ({ "Run " + testname + ": Check for program of closure in 'c'.", 0,
+                    (:
+                        closure cl = d->get_c_calc_cl();
+                        return cl ? get_type_info(cl, 3) == "/c" : 1;
+                    :)
+                }),
                 ({ "Run " + testname + ": Check for virtual variable lambda closures in 'a'.", 0,
                     (:
                         return funcall(d->get_a_var_cl2()) == "a";