Fix bug in allocate_string which was making impurify die.

diff --git a/v7/src/microcode/string.c b/v7/src/microcode/string.c
index 1ae78632a7f28eb8d07566c6f393d740a43df33d..b2c894fd7602688f56359186527d856797c83620 100644 (file)
--- a/v7/src/microcode/string.c
+++ b/v7/src/microcode/string.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/string.c,v 9.26 1987/07/23 21:51:03 cph Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/string.c,v 9.27 1987/08/05 07:32:48 jinx Rel $ */
 
 /* String primitives. */
 
@@ -52,7 +52,6 @@ allocate_string (nbytes)
   count = ((BYTES_TO_POINTERS (nbytes + 1)) + 2);
   result = (allocate_non_marked_vector (TC_CHARACTER_STRING, count, true));
   set_string_length (result, nbytes);
-  Free += count;
   return (result);
 }
 

diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 22cc4aded1db88b6064bba14a90e960a98888fbe..24dbde900f417f5dd15c93b8347c5005452c38d7 100644 (file)
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 9.91 1987/08/03 19:41:39 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 9.92 1987/08/05 07:33:16 jinx Exp $
 
 This file contains version information for the microcode. */
 \f
@@ -46,7 +46,7 @@ This file contains version information for the microcode. */
 #define VERSION                9
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     91
+#define SUBVERSION     92
 #endif
 
 #ifndef UCODE_TABLES_FILENAME

diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 0bac765bffceb23d8ed3200125962c3e42d82ca3..734da24d5326e81a99988d6048cff4d40790f16c 100644 (file)
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 9.91 1987/08/03 19:41:39 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 9.92 1987/08/05 07:33:16 jinx Exp $
 
 This file contains version information for the microcode. */
 \f
@@ -46,7 +46,7 @@ This file contains version information for the microcode. */
 #define VERSION                9
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     91
+#define SUBVERSION     92
 #endif
 
 #ifndef UCODE_TABLES_FILENAME