From c47e28f335e3c747b0e0292b85dda0f05021a09e Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 5 Sep 1995 21:27:35 +0000
Subject: [PATCH] Fixed call to ERROR:WRONG-TYPE-DATUM to pass correct number
 of arguments.

---
 v7/src/runtime/usrint.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/usrint.scm b/v7/src/runtime/usrint.scm
index 9f42d7458..c1d0e0f13 100644
--- a/v7/src/runtime/usrint.scm
+++ b/v7/src/runtime/usrint.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: usrint.scm,v 1.14 1995/05/25 18:53:06 ziggy Exp $
+$Id: usrint.scm,v 1.15 1995/09/05 21:27:35 adams Exp $
 
 Copyright (c) 1991-94 Massachusetts Institute of Technology
 
@@ -54,7 +54,7 @@ MIT in each case. |#
 	      (string? (cdr prompt)))
 	 (cons (car prompt) (canonicalize-prompt (cdr prompt) " ")))
 	(else
-	 (error:wrong-type-datum prompt))))
+	 (error:wrong-type-datum prompt "a string or standard prompt"))))
 
 (define (write-command-prompt port prompt level)
   (port/with-output-terminal-mode port 'COOKED
-- 
2.25.1