Handle interpreted functions in circle printing.

Interpreted functions print as #<interpreted fun: name args>,
thus repeating some list structure in their notation.
This means we must traverse them when populating the
object hash during printing, and also when backpatching
after parsing.

Test case: evaluate and print

  (let ((s '(lambda (a b c) d))) (list s (eval s)))

with *print-circle* enabled.

* lib.c (populate_obj_hash): Handle FUN objects of
functype FINTERP.

* parser.c (circ_backpatch): Likewise.

2 files changed, 14 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index b4452cbb..24b39747 100644
--- a/lib.c
+++ b/lib.c
@@ -9794,6 +9794,13 @@ tail:
       }
     }
     break;
+  case FUN:
+    if (obj->f.functype == FINTERP) {
+      val fun = obj->f.f.interp_fun;
+      populate_obj_hash(car(fun), ctx);
+      obj = cadr(fun);
+      goto tail;
+    }
   default:
     break;
   }
diff --git a/parser.c b/parser.c
index bf243711..75dbb89b 100644
--- a/parser.c
+++ b/parser.c
@@ -333,6 +333,13 @@ tail:
       }
     }
     break;
+  case FUN:
+    if (obj->f.functype == FINTERP) {
+      val fun = obj->f.f.interp_fun;
+      circ_backpatch(p, &cs, car(fun));
+      obj = cadr(fun);
+      goto tail;
+    }
   default:
     break;
   }