~ chicken-core (chicken-5) ba1568213249dd8d25e849ac33d25128f77e5e75

commit ba1568213249dd8d25e849ac33d25128f77e5e75
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Jul 31 23:44:04 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Jul 31 23:44:04 2010 +0200

    Opening my heart to thy beauty.

diff --git a/runtime.c b/runtime.c
index 366a5dc8..565a66a6 100644
--- a/runtime.c
+++ b/runtime.c
@@ -2648,7 +2648,10 @@ C_regparm void C_fcall C_reclaim(void *trampoline, void *proc)
 
   /* Entry point for second-level GC (on explicit request or because of full fromspace): */
   if(C_setjmp(gc_restart) || (start = C_fromspace_top) >= C_fromspace_limit) {
-    if(gc_bell) C_putchar(7);
+    if(gc_bell) {
+      C_putchar(7);
+      C_fflush(stdout);
+    }
 
     tgc = cpu_milliseconds();