From: Stephen 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))))