From 7beb2573d9812b9c8ab3ce8933099b6b6e2c89e0 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 17 Apr 1987 03:50:09 +0000 Subject: [PATCH] Prim_bit_string_zero_p had 2 as its arity rather than 1, causing the stack to get out of sync. --- v7/src/microcode/bitstr.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/microcode/bitstr.c b/v7/src/microcode/bitstr.c index dca044e32..d4e27fb00 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.24 1987/04/16 02:26:50 jinx Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bitstr.c,v 9.25 1987/04/17 03:50:09 cph Exp $ Bit string primitives. @@ -283,7 +283,7 @@ Built_In_Primitive( Prim_bit_string_set_x, 2, "BIT-STRING-SET!", 0xD7) /* (BIT-STRING-ZERO? bit-string) Returns true the argument has no "set" bits. */ -Built_In_Primitive( Prim_bit_string_zero_p, 2, "BIT-STRING-ZERO?", 0xD9) +Built_In_Primitive( Prim_bit_string_zero_p, 1, "BIT-STRING-ZERO?", 0xD9) { long length, odd_bits; Primitive_1_Args(); -- 2.25.1