From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 May 2000 14:44:39 +0000 (+0000)
Subject: Define SET-STRING-MAXIMUM-LENGTH!.
X-Git-Tag: 20090517-FFI~3861
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dcbe765035c975c9d8843dd3212562ff548c4186;p=mit-scheme.git

Define SET-STRING-MAXIMUM-LENGTH!.
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 36b2afbda..70cab51dd 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.348 2000/05/02 20:39:57 cph Exp $
+$Id: runtime.pkg,v 14.349 2000/05/16 14:44:39 cph Exp $
 
 Copyright (c) 1988-2000 Massachusetts Institute of Technology
 
@@ -88,6 +88,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  reverse-substring
 	  reverse-substring!
 	  set-string-length!
+	  set-string-maximum-length!
 	  string
 	  string->list
 	  string-allocate
diff --git a/v7/src/runtime/string.scm b/v7/src/runtime/string.scm
index fa3446b9a..c62b2b427 100644
--- a/v7/src/runtime/string.scm
+++ b/v7/src/runtime/string.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: string.scm,v 14.34 2000/04/14 01:31:04 cph Exp $
+$Id: string.scm,v 14.35 2000/05/16 14:43:39 cph Exp $
 
 Copyright (c) 1988-2000 Massachusetts Institute of Technology
 
@@ -39,7 +39,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
 (define-primitives
   string-allocate string? string-ref string-set!
-  string-length string-maximum-length set-string-length!
+  string-length set-string-length!
+  string-maximum-length set-string-maximum-length!
   substring=? substring-ci=? substring<?
   substring-move-right! substring-move-left!
   substring-find-next-char-in-set