From 0e3d004b3be5e6af3d0815ca17ac53a55c6f2e70 Mon Sep 17 00:00:00 2001 From: "Taylor R. Campbell" Date: Thu, 3 Aug 2006 04:00:12 +0000 Subject: [PATCH] Update the size of parse states according to the recently added field, so that we don't write off the end of the vector's storage. --- v7/src/microcode/syntax.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/microcode/syntax.c b/v7/src/microcode/syntax.c index d2b373851..ab726e202 100644 --- a/v7/src/microcode/syntax.c +++ b/v7/src/microcode/syntax.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Id: syntax.c,v 1.32 2006/07/03 19:28:03 riastradh Exp $ +$Id: syntax.c,v 1.33 2006/08/03 04:00:12 riastradh Exp $ Copyright 1987,1988,1989,1991,1993,1996 Massachusetts Institute of Technology Copyright 2000,2004,2005,2006 Massachusetts Institute of Technology @@ -1038,7 +1038,7 @@ DEFINE_PRIMITIVE ("SCAN-SEXPS-FORWARD", Prim_scan_sexps_forward, 7, 7, 0) start -= 1; done: - result = (allocate_marked_vector (TC_VECTOR, 8, true)); + result = (allocate_marked_vector (TC_VECTOR, 9, true)); FAST_VECTOR_SET (result, 0, (LONG_TO_FIXNUM (depth))); FAST_VECTOR_SET (result, 1, -- 2.25.1