From 8aaa6655be61ce7e2c309a171c6e63438bffbede Mon Sep 17 00:00:00 2001 From: Arthur Gleckler Date: Thu, 19 Dec 1991 21:58:55 +0000 Subject: [PATCH] Fix braino in DEFINE-STRUCTURE. --- v7/src/runtime/x11graph.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/x11graph.scm b/v7/src/runtime/x11graph.scm index fdecb2505..f855fe29e 100644 --- a/v7/src/runtime/x11graph.scm +++ b/v7/src/runtime/x11graph.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/x11graph.scm,v 1.11 1991/12/19 20:49:59 arthur Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/x11graph.scm,v 1.12 1991/12/19 21:58:55 arthur Exp $ Copyright (c) 1989-91 Massachusetts Institute of Technology @@ -510,7 +510,7 @@ MIT in each case. |# ;;;; Fonts -(define-structure (x-font-structure (conc-name font-structure/) +(define-structure (x-font-structure (conc-name x-font-structure/) (type vector)) (name false read-only true) (direction false read-only true) @@ -523,7 +523,7 @@ MIT in each case. |# (max-ascent false read-only true) (max-descent false read-only true)) -(define-structure (x-character-bounds (conc-name character-bounds/) +(define-structure (x-character-bounds (conc-name x-character-bounds/) (type vector)) (lbearing false read-only true) (rbearing false read-only true) -- 2.25.1