diff options
-rw-r--r-- | lib.c | 7 | ||||
-rw-r--r-- | parser.c | 7 |
2 files changed, 14 insertions, 0 deletions
@@ -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; } @@ -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; } |