From: Arthur Gleckler Date: Wed, 22 Jan 1992 23:13:31 +0000 (+0000) Subject: Fix braino in previous bug fix to primitive X-FONT-STRUCTURE. X-Git-Tag: 20090517-FFI~9948 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f27239f813f36aeef222572eae06556c3d17d68f;p=mit-scheme.git Fix braino in previous bug fix to primitive X-FONT-STRUCTURE. --- diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c index 2fc9b6b0a..00f191afe 100644 --- a/v7/src/microcode/x11base.c +++ b/v7/src/microcode/x11base.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11base.c,v 1.29 1992/01/22 22:35:09 arthur Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11base.c,v 1.30 1992/01/22 23:13:31 arthur Exp $ Copyright (c) 1989-91 Massachusetts Institute of Technology @@ -1220,7 +1220,7 @@ DEFINE_PRIMITIVE ("X-FONT-STRUCTURE", Prim_x_font_structure, 2, 2, 0) unsigned int start_index = (saved_font -> min_char_or_byte2); unsigned int index; unsigned int length = - (start_index - (saved_font -> max_char_or_byte2) + 1); + ((saved_font -> max_char_or_byte2) - start_index + 1); SCHEME_OBJECT character_vector = (allocate_marked_vector (TC_VECTOR, length, true)); for (index = 0; index < length; index++)