diff options
Diffstat (limited to 'lisp/bytecode.c')
| -rw-r--r-- | lisp/bytecode.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/bytecode.c b/lisp/bytecode.c index 8353a13..cc7d1c5 100644 --- a/lisp/bytecode.c +++ b/lisp/bytecode.c @@ -551,6 +551,8 @@ Lisp_Disassemble(LispBuiltin *builtin) name = bytecode = NULL; switch (OBJECT_TYPE(function)) { + case LispFunction_t: + function = function->data.atom->object; case LispAtom_t: name = function; atom = function->data.atom; |