diff options
Diffstat (limited to 'rts/Printer.c')
| -rw-r--r-- | rts/Printer.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Printer.c b/rts/Printer.c index 996199ea52..15404e1205 100644 --- a/rts/Printer.c +++ b/rts/Printer.c @@ -613,7 +613,7 @@ printStackChunk( StgPtr sp, StgPtr spBottom ) StgRetFun *ret_fun; ret_fun = (StgRetFun *)sp; - fun_info = get_fun_itbl(ret_fun->fun); + fun_info = get_fun_itbl(UNTAG_CLOSURE(ret_fun->fun)); debugBelch("RET_FUN (%p) (type=%d)\n", ret_fun->fun, (int)fun_info->f.fun_type); switch (fun_info->f.fun_type) { case ARG_GEN: |