From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 25 Oct 2006 05:05:24 +0000 (+0000)
Subject: Add WRITE-NOTIFICATION-LINE.
X-Git-Tag: 20090517-FFI~875
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=460459bed7aa6d02721fd46fa32791db04595ce7;p=mit-scheme.git

Add WRITE-NOTIFICATION-LINE.
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 8d486a7e4..8c10e0a4f 100644
--- 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 e4d87e813..4bdc1be8a 100644
--- 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