From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 20 Aug 1993 18:53:41 +0000 (+0000)
Subject: Supply missing noun in error message for allocation-failure.
X-Git-Tag: 20090517-FFI~8044
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6392752563be1755f7890be8076b78f821286818;p=mit-scheme.git

Supply missing noun in error message for allocation-failure.
---

diff --git a/v7/src/edwin/utils.scm b/v7/src/edwin/utils.scm
index be188488a..9c95fe5d5 100644
--- a/v7/src/edwin/utils.scm
+++ b/v7/src/edwin/utils.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: utils.scm,v 1.31 1993/01/20 10:35:53 cph Exp $
+;;;	$Id: utils.scm,v 1.32 1993/08/20 18:53:41 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -64,7 +64,7 @@
 	    (write-string "Unable" port)))
       (write-string " to allocate " port)
       (write (access-condition condition 'N-WORDS) port)
-      (write-string " of storage." port))))
+      (write-string " words of storage." port))))
 
 (define error:allocation-failure
   (condition-signaller condition-type:allocation-failure