From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 8 Nov 2009 01:06:26 +0000 (-0800)
Subject: Show "aborted" when leaving the extent of an unfinished notification
X-Git-Tag: 20100708-Gtk~255
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7616fdf74741b7d07732b92bb2a16466ea905456;p=mit-scheme.git

Show "aborted" when leaving the extent of an unfinished notification
thunk.
---

diff --git a/src/runtime/usrint.scm b/src/runtime/usrint.scm
index 87a20d01e..5d0e5f2d3 100644
--- a/src/runtime/usrint.scm
+++ b/src/runtime/usrint.scm
@@ -322,18 +322,17 @@ USA.
 	     (set! done? #t)
 	     v))
 	 (lambda ()
-	   (if done?
-	       (let ((port (notification-output-port)))
-		 (if (if n
-			 (> (output-port/bytes-written port) n)
-			 (output-port/line-start? port))
-		     (begin
-		       (fresh-line port)
-		       (write-notification-prefix port)
-		       (write-string "... " port)))
-		 (set! n)
-		 (write-string "done" port)
-		 (newline port))))))))
+	   (let ((port (notification-output-port)))
+	     (if (if n
+		     (> (output-port/bytes-written port) n)
+		     (output-port/line-start? port))
+		 (begin
+		   (fresh-line port)
+		   (write-notification-prefix port)
+		   (write-string "... " port)))
+	     (set! n)
+	     (write-string (if done? "done" "aborted") port)
+	     (newline port)))))))
 
 (define (wrap-notification-port port)
   (make-port wrapped-notification-port-type port))