diff options
Diffstat (limited to 'libguile/gc-mark.c')
-rw-r--r-- | libguile/gc-mark.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/libguile/gc-mark.c b/libguile/gc-mark.c index 994d3aa88..10f1522e0 100644 --- a/libguile/gc-mark.c +++ b/libguile/gc-mark.c @@ -281,6 +281,12 @@ scm_gc_mark_dependencies (SCM p) break; case scm_tc7_number: + if (SCM_TYP16 (ptr) == scm_tc16_fraction) + { + scm_gc_mark (SCM_CELL_OBJECT_1 (ptr)); + ptr = SCM_CELL_OBJECT_2 (ptr); + goto gc_mark_loop; + } break; case scm_tc7_wvect: |