From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 3 Feb 1992 23:48:02 +0000 (+0000)
Subject: CPP-time uses of false and true now use FALSE and TRUE.
X-Git-Tag: 20090517-FFI~9888
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7a8b15b7a2d926a4ed1c7f2f5cff6e861cf5543f;p=mit-scheme.git

CPP-time uses of false and true now use FALSE and TRUE.
---

diff --git a/v7/src/microcode/uxtrap.c b/v7/src/microcode/uxtrap.c
index 7a326652a..8c1ed1254 100644
--- a/v7/src/microcode/uxtrap.c
+++ b/v7/src/microcode/uxtrap.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxtrap.c,v 1.16 1991/10/29 22:55:11 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxtrap.c,v 1.17 1992/02/03 23:48:02 jinx Exp $
 
-Copyright (c) 1990-91 Massachusetts Institute of Technology
+Copyright (c) 1990-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -501,7 +501,7 @@ DEFUN (continue_from_trap, (signo, info, scp),
   SCHEME_OBJECT * xtra_info;
   struct trap_recovery_info trinfo;
 
-#if 0
+#if FALSE
   fprintf (stderr, "\ncontinue_from_trap:");
   fprintf (stderr, "\tpc = 0x%08lx\n", the_pc);
   fprintf (stderr, "\tCsp = 0x%08lx\n", C_sp);
@@ -741,7 +741,7 @@ DEFUN (find_block_address_in_area, (pc_value, area_start),
 	      }
 
 	      default:
-#if 0
+#if FALSE
 	      {
 		gc_death (TERM_EXIT,
 			  "find_block_address: Unknown compiler linkage kind.",