From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 16 Sep 1994 21:20:13 +0000 (+0000)
Subject: Fix think-o in X-WINDOW-FONT-STRUCTURE.
X-Git-Tag: 20090517-FFI~7112
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6db353ee275d15405d508e4aaeaa5c1e141a492c;p=mit-scheme.git

Fix think-o in X-WINDOW-FONT-STRUCTURE.
---

diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c
index 82b6ecf94..34362e03b 100644
--- a/v7/src/microcode/x11base.c
+++ b/v7/src/microcode/x11base.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: x11base.c,v 1.53 1994/09/14 23:01:49 adams Exp $
+$Id: x11base.c,v 1.54 1994/09/16 21:20:13 cph Exp $
 
 Copyright (c) 1989-93 Massachusetts Institute of Technology
 
@@ -1968,7 +1968,6 @@ DEFUN (convert_font_struct, (font_name, font),
   return  result;
 }
 
-
 DEFINE_PRIMITIVE ("X-FONT-STRUCTURE", Prim_x_font_structure, 2, 2,
  "(display font)\n\
   FONT is either a font name or a font ID.")
@@ -1998,7 +1997,6 @@ DEFINE_PRIMITIVE ("X-FONT-STRUCTURE", Prim_x_font_structure, 2, 2,
   }
 }
 
-
 DEFINE_PRIMITIVE ("X-WINDOW-FONT-STRUCTURE", Prim_x_window_font_structure, 1, 1,
 		  0)
 {
@@ -2006,5 +2004,5 @@ DEFINE_PRIMITIVE ("X-WINDOW-FONT-STRUCTURE", Prim_x_window_font_structure, 1, 1,
   PRIMITIVE_HEADER (1);
   Primitive_GC_If_Needed (FONT_STRUCTURE_MAX_CONVERTED_SIZE);
   font = XW_FONT (x_window_arg (1));
-  PRIMITIVE_RETURN (convert_font_struct (ulong_to_integer (font), font));
+  PRIMITIVE_RETURN (convert_font_struct (ulong_to_integer (font->fid), font));
 }