Show "aborted" when leaving the extent of an unfinished notification

thunk.

diff --git a/src/runtime/usrint.scm b/src/runtime/usrint.scm
index 87a20d01e152d168ff1acac3c92ae4abf37318e3..5d0e5f2d37cf69cda030e2c3ea6d7d120e2880bc 100644 (file)
--- 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)))))))
 \f
 (define (wrap-notification-port port)
   (make-port wrapped-notification-port-type port))