From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 Jun 2009 18:37:21 +0000 (-0700)
Subject: Fix thinko.
X-Git-Tag: 20100708-Gtk~382
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5e2ccf8929d6704a7ab4a0da90ae01041edc5616;p=mit-scheme.git

Fix thinko.
---

diff --git a/src/microcode/cmpintmd/svm1.c b/src/microcode/cmpintmd/svm1.c
index 26940d43d..8623db2f7 100644
--- a/src/microcode/cmpintmd/svm1.c
+++ b/src/microcode/cmpintmd/svm1.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: svm1.c,v 1.3 2008/01/30 20:02:24 cph Exp $
+$Id$
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -186,8 +186,8 @@ cc_entry_reference_offset (insn_t * address)
 {
   cc_entry_type_t cet;
 #ifdef ENABLE_DEBUGGING_TOOLS
-  bool ok_p = (read_cc_entry_type ((&cet), address));
-  assert (ok_p);
+  bool fail_p = (read_cc_entry_type ((&cet), address));
+  assert (!fail_p);
 #else
   read_cc_entry_type ((&cet), address);
 #endif