From 840e99102bc3e479177fcacea43be6c8494d881c Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Fri, 18 Jan 1991 01:13:31 +0000
Subject: [PATCH] Fix bug in INDIRECT_TEST_1 and INDIRECT_TEST_2 by adding a
 use of BOOLEAN_TO_OBJECT.

---
 v7/src/microcode/generic.c | 6 +++---
 v7/src/microcode/version.h | 6 +++---
 v8/src/microcode/version.h | 6 +++---
 3 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/v7/src/microcode/generic.c b/v7/src/microcode/generic.c
index d1989379a..875d79a85 100644
--- a/v7/src/microcode/generic.c
+++ b/v7/src/microcode/generic.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/generic.c,v 9.34 1990/06/20 17:40:46 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/generic.c,v 9.35 1991/01/18 01:12:48 jinx Exp $
 
 Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -52,7 +52,7 @@ MIT in each case. */
   {									\
     fast SCHEME_OBJECT x = (ARG_REF (1));				\
     if (FIXNUM_P (x))							\
-      return (test (x));						\
+      return (BOOLEAN_TO_OBJECT (test (x)));				\
   }									\
   INDIRECT (slot, 1);							\
 }
@@ -87,7 +87,7 @@ DEFINE_PRIMITIVE ("-1+", Prim_subtract_one, 1, 1, 0)
     fast SCHEME_OBJECT x = (ARG_REF (1));				\
     fast SCHEME_OBJECT y = (ARG_REF (2));				\
     if ((FIXNUM_P (x)) && (FIXNUM_P (y)))				\
-      return (test (x, y));						\
+      return (BOOLEAN_TO_OBJECT (test (x, y)));				\
   }									\
   INDIRECT (slot, 2);							\
 }
diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index f495b29be..77f002699 100644
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.59 1990/12/10 19:40:48 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.60 1991/01/18 01:13:31 jinx Exp $
 
-Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1988, 1989, 1990, 1991 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -46,5 +46,5 @@ MIT in each case. */
 #define VERSION		11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	59
+#define SUBVERSION	60
 #endif
diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 9fe6f32cb..60479a05b 100644
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.59 1990/12/10 19:40:48 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.60 1991/01/18 01:13:31 jinx Exp $
 
-Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1988, 1989, 1990, 1991 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -46,5 +46,5 @@ MIT in each case. */
 #define VERSION		11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	59
+#define SUBVERSION	60
 #endif
-- 
2.25.1