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.

0 files changed, 0 insertions, 0 deletions