* Fixed a bug that caused interrupts to write the contents of the

output buffer twice.

BUGS

@@ -1,9 +1,20 @@
 * FIX: Error in generate-code: BUG: unhandles single rv.
 
+
+
+
+
+Not applicable anymore:
+
 * In libcompile.ss:
   If you move the (initialize-system) call to the very bottom of the
   library, the system crashes on startup.  
 
+
+
+
+Fixed:
+
 * Investigate what happens when an interrupt occurs during a write.
 
    > (define (f) (write (gensym)) (newline) (f))

src/ikarus.handlers.ss

@@ -30,7 +30,7 @@
   (define interrupt-handler
     (make-parameter
       (lambda ()
-        (flush-output-port (console-output-port))
+        (set-port-output-index! (console-output-port) 0)
         (error #f "interrupted"))
       (lambda (x)
         (if (procedure? x)