From 7cc60be9cfb00f3fc24ffaaa80511117cf292df8 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 5 Jul 1989 18:42:21 +0000 Subject: [PATCH] Missing assigment in bit-substring-find-next-set-bit. --- v7/src/microcode/bitstr.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/v7/src/microcode/bitstr.c b/v7/src/microcode/bitstr.c index 9a7a007e5..56f2ebe43 100644 --- a/v7/src/microcode/bitstr.c +++ b/v7/src/microcode/bitstr.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/bitstr.c,v 9.38 1988/08/15 20:37:15 cph Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bitstr.c,v 9.39 1989/07/05 18:42:21 cph Rel $ Bit string primitives. @@ -879,6 +879,7 @@ DEFINE_PRIMITIVE ("WRITE-BITS!", Prim_write_bits_x, 3, 3, 0) PRIMITIVE_HEADER (3); \ \ CHECK_ARG (1, BIT_STRING_P); \ + bit_string = (ARG_REF (1)); \ start = (arg_nonnegative_integer (2)); \ end = (arg_nonnegative_integer (3)); \ \ -- 2.25.1