| author | Camm Maguire <camm@transcendence.maguirefamily.org> | 2025年04月27日 10:54:59 -0400 |
|---|---|---|
| committer | Camm Maguire <camm@transcendence.maguirefamily.org> | 2025年04月27日 10:54:59 -0400 |
| commit | 1d1362e2b38eb7f4f07e7f983d7fcb55fe43f5e9 (patch) | |
| tree | be38e80af546eae3cceee515c30481490dd7c890 /gcl/o/eval.c | |
| parent | 49cd106307bf75edc3f35bd476ebf6d84e8e139f (diff) | |
| download | gcl-c23.tar.gz | |
| -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; |