Add WRITE-NOTIFICATION-LINE.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 8d486a7e4d097ec3b04f48c3ff38f2b72bb29efe..8c10e0a4f3ece2d91bec96c95d37173a4d490fa1 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.601 2006/10/25 04:25:32 cph Exp $
+$Id: runtime.pkg,v 14.602 2006/10/25 05:05:19 cph Exp $
 
 Copyright 1988,1989,1990,1991,1992,1993 Massachusetts Institute of Technology
 Copyright 1994,1995,1996,1997,1998,1999 Massachusetts Institute of Technology
@@ -4270,7 +4270,8 @@ USA.
          prompt-for-confirmation
          prompt-for-evaluated-expression
          prompt-for-expression
-         with-notification)
+         with-notification
+         write-notification-line)
   (export (runtime rep)
          port/set-default-environment
          port/write-result)

diff --git a/v7/src/runtime/usrint.scm b/v7/src/runtime/usrint.scm
index e4d87e813eb64fe2b2e3e690201bcdfd4715455d..4bdc1be8a1115ede7c64109d290022a90071e839 100644 (file)
--- a/v7/src/runtime/usrint.scm
+++ b/v7/src/runtime/usrint.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: usrint.scm,v 1.22 2006/10/25 04:25:37 cph Exp $
+$Id: usrint.scm,v 1.23 2006/10/25 05:05:24 cph Exp $
 
 Copyright 1991,1992,1993,1994,1995,2001 Massachusetts Institute of Technology
 Copyright 2003,2005,2006 Massachusetts Institute of Technology
@@ -324,4 +324,13 @@ USA.
          (newline port)
          (if (car p)
              (cdr p)
-             (signal-condition (cdr p))))))))
\ No newline at end of file
+             (signal-condition (cdr p))))))))
+
+(define (write-notification-line message)
+  (let ((port (notification-output-port)))
+    (fresh-line port)
+    (write-string ";" port)
+    (do ((i 0 (+ i 1)))
+       ((not (< i *notification-depth*)))
+      (write-string "  " port))
+    (message port)))
\ No newline at end of file