-rw-r--r-- | gcl/o/eval.c | 2 |
diff --git a/gcl/o/eval.c b/gcl/o/eval.c index ecda3fc62..5bc0e4815 100644 --- a/gcl/o/eval.c +++ b/gcl/o/eval.c @@ -704,7 +704,7 @@ APPLICATION: ihs_check; ihs_push(form); ihs_top->ihs_base = lex_env; - ((void (*)())fun->s.s_sfdef)(MMcdr(form)); + ((void (*)(object))fun->s.s_sfdef)(MMcdr(form)); CHECK_AVMA; ihs_pop(); return; |