From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 13 Nov 2005 03:47:00 +0000 (+0000)
Subject: Eliminate unused procedure x_error_message.
X-Git-Tag: 20090517-FFI~1183
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ed4479779993f28cc9b193ee75e8dc4f4b5260f5;p=mit-scheme.git

Eliminate unused procedure x_error_message.
---

diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c
index 46650613c..8f1835652 100644
--- a/v7/src/microcode/x11base.c
+++ b/v7/src/microcode/x11base.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: x11base.c,v 1.82 2005/11/12 22:53:33 cph Exp $
+$Id: x11base.c,v 1.83 2005/11/13 03:47:00 cph Exp $
 
 Copyright 1989,1990,1991,1992,1993,1994 Massachusetts Institute of Technology
 Copyright 1995,1996,1997,1998,2000,2001 Massachusetts Institute of Technology
@@ -335,13 +335,6 @@ any_x_errors_p (Display * display)
 {
   return ((x_error_code (display)) != 0);
 }
-
-static SCHEME_OBJECT
-x_error_message (void)
-{
-  return
-    (char_pointer_to_string_no_gc ((unsigned char *) (x_error_info.message)));
-}
 
 /* Defaults and Attributes */