From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 8 May 2018 05:08:01 +0000 (-0700)
Subject: Fix typo in previous change.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~75
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a892e59b1fca6a222b4b252da90a2a5f19462542;p=mit-scheme.git

Fix typo in previous change.
---

diff --git a/src/runtime/error.scm b/src/runtime/error.scm
index 5a4c5e495..beed733ac 100644
--- a/src/runtime/error.scm
+++ b/src/runtime/error.scm
@@ -663,8 +663,7 @@ USA.
 (define (signal-file-operation continuation index verb noun reason
 			       operator operands)
   (with-restart 'use-value
-      (string-append "New " noun
-		     " name (an expression to be evaluated)")
+      (string-append "Try to " verb " a different " noun ".")
       (lambda (operand)
 	(within-continuation continuation
 	  (lambda ()
@@ -673,14 +672,13 @@ USA.
 		     (append! head
 			      (cons operand (cdr tail))))))))
       (let ((prompt
-	     (string-append "Try to " verb " a different " noun
-			    ".")))
+	     (string-append "New " noun
+			    " name (an expression to be evaluated)")))
 	(lambda ()
 	  (values (prompt-for-evaluated-expression prompt))))
     (lambda ()
       (with-restart 'retry
-	  (string-append "Try to " verb " the same " noun
-			 " again.")
+	  (string-append "Try to " verb " the same " noun " again.")
 	  (lambda ()
 	    (within-continuation continuation
 	      (lambda ()