From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 10 Jul 1995 21:15:01 +0000 (+0000)
Subject: Added a few colons to error messages because I spent five minutes
X-Git-Tag: 20090517-FFI~6194
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dfe52bb484a9c450fae27e8338f19674a1b9c449;p=mit-scheme.git

Added a few colons to error messages because I spent five minutes
trying to understand a message that with the particular irritants
happened to mean meant something different without the colon.
---

diff --git a/v7/src/runtime/defstr.scm b/v7/src/runtime/defstr.scm
index 67c53621f..f51503ca3 100644
--- a/v7/src/runtime/defstr.scm
+++ b/v7/src/runtime/defstr.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: defstr.scm,v 14.28 1995/05/16 04:43:48 adams Exp $
+$Id: defstr.scm,v 14.29 1995/07/10 21:15:01 adams Exp $
 
 Copyright (c) 1988-1995 Massachusetts Institute of Technology
 
@@ -333,7 +333,7 @@ differences:
 	    (values slot-description false '())))
     (lambda (name default options)
       (if (not (list? options))
-	  (error "Structure slot options must be a list" options))
+	  (error "Structure slot options must be a list:" options))
       (let ((type true)
 	    (read-only? false)
 	    (options-seen '()))
@@ -550,10 +550,10 @@ differences:
 	  (if (not (null? arguments))
 	      (begin
 		(if (null? (cdr arguments))
-		    (error "Keyword list does not have even length"
+		    (error "Keyword list does not have even length:"
 			   argument-list))
 		(set-cdr! (or (assq (car arguments) alist)
-			      (error "Unknown keyword" (car arguments)))
+			      (error "Unknown keyword:" (car arguments)))
 			  (cadr arguments))
 		(loop (cddr arguments)))))
 	(map cdr alist))))
@@ -571,7 +571,7 @@ differences:
 	    (let ((name->slot
 		   (lambda (name)
 		     (or (slot-assoc name (structure/slots structure))
-			 (error "Not a defined structure slot" name)))))
+			 (error "Not a defined structure slot:" name)))))
 	      (let ((required (map name->slot required))
 		    (optional (map name->slot optional))
 		    (rest (and rest (name->slot rest))))