~ chicken-core (chicken-5) 6a42120bc964d1170ba6b12c21770ad390d4cf9d


commit 6a42120bc964d1170ba6b12c21770ad390d4cf9d
Author:     LemonBoy <thatlemon@gmail.com>
AuthorDate: Wed Aug 30 13:42:38 2017 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Wed Aug 30 18:35:45 2017 +0200

    Teach the heap dumper about the new number formats
    
    Prevents a segfault when a {cplx,big,rat}num was found.
    
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/runtime.c b/runtime.c
index a2ccfd4e..ba2ec26d 100644
--- a/runtime.c
+++ b/runtime.c
@@ -12473,6 +12473,9 @@ static void C_ccall dump_heap_state_2(C_word c, C_word *av)
       case C_WEAK_PAIR_TYPE: C_fprintf(C_stderr,      C_text("weak pair      ")); break;
       case C_VECTOR_TYPE: C_fprintf(C_stderr,         C_text("vector         ")); break;
       case C_BYTEVECTOR_TYPE: C_fprintf(C_stderr,     C_text("bytevector     ")); break;
+      case C_BIGNUM_TYPE: C_fprintf(C_stderr,         C_text("bignum         ")); break;
+      case C_CPLXNUM_TYPE: C_fprintf(C_stderr,        C_text("cplxnum        ")); break;
+      case C_RATNUM_TYPE: C_fprintf(C_stderr,         C_text("ratnum         ")); break;
 	/* XXX this is sort of funny: */
       case C_BYTEBLOCK_BIT: C_fprintf(C_stderr,        C_text("blob           ")); break;
       default:
Trap