From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 30 Jan 1992 23:21:04 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~9913
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=508a80fe4d4099733f73dc04b2ad2e4b3c1934fd;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/runtime/arith.scm b/v7/src/runtime/arith.scm
index 5ea41fd74..95f8fc716 100644
--- a/v7/src/runtime/arith.scm
+++ b/v7/src/runtime/arith.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/arith.scm,v 1.22 1992/01/29 20:25:00 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/arith.scm,v 1.23 1992/01/30 23:21:04 jinx Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -386,7 +386,7 @@ MIT in each case. |#
 	(bash! true value stack)
 	;; set-string-maximum-length! also sets the length.
 	;; (set-string-length! string index)
-	((ucode-primitive set-string-maximun-length! 2) string index)
+	((ucode-primitive set-string-maximum-length! 2) string index)
 	string)))
 
   (cond ((fix:fixnum? number)