Define SET-STRING-MAXIMUM-LENGTH!.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 36b2afbda94e144339c6e06dee16fe5f934de883..70cab51ddb80e17b6510b6c75c334753384f8482 100644 (file)
--- 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 fa3446b9aca299fd21bd3b14a5829761c67be56d..c62b2b427fed4e442c2733e6b9b5eec3e825c9d5 100644 (file)
--- 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