summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib.c7
-rw-r--r--parser.c7
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;
}