From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 5 Sep 1995 21:27:35 +0000 (+0000)
Subject: Fixed call to ERROR:WRONG-TYPE-DATUM to pass correct number of
X-Git-Tag: 20090517-FFI~5976
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c47e28f335e3c747b0e0292b85dda0f05021a09e;p=mit-scheme.git

Fixed call to ERROR:WRONG-TYPE-DATUM to pass correct number of
arguments.
---

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