From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 24 Aug 1994 19:57:15 +0000 (+0000)
Subject: Fixed typo.
X-Git-Tag: 20090517-FFI~7127
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a645c3acad8306b2a6c4caac855fce4bdf644bf6;p=mit-scheme.git

Fixed typo.
---

diff --git a/v7/src/edwin/utils.scm b/v7/src/edwin/utils.scm
index c062e1a34..4c1d8bf38 100644
--- a/v7/src/edwin/utils.scm
+++ b/v7/src/edwin/utils.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: utils.scm,v 1.37 1994/08/24 19:50:40 adams Exp $
+;;;	$Id: utils.scm,v 1.38 1994/08/24 19:57:15 adams Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -144,7 +144,7 @@
       (ucode-primitive string-allocate)))
 
 (define set-string-maximum-length!
-  (if (compiler-procedure? edwin-set-string-maximum-length!)
+  (if (compiled-procedure? edwin-set-string-maximum-length!)
       edwin-set-string-maximum-length!
       (ucode-primitive set-string-maximum-length!)))