From 7616fdf74741b7d07732b92bb2a16466ea905456 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 7 Nov 2009 17:06:26 -0800 Subject: [PATCH] Show "aborted" when leaving the extent of an unfinished notification thunk. --- src/runtime/usrint.scm | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) 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)) -- 2.25.1