From b4cb7bb480c1451dc3276a43a1cb4b924396cb1f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 Mar 2003 20:48:09 +0000
Subject: [PATCH] Use DEFINE-RECORD-TYPE to make record descriptions more
 succinct.

---
 v7/src/runtime/x11graph.scm | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/v7/src/runtime/x11graph.scm b/v7/src/runtime/x11graph.scm
index 7f700ad5d..dd5b44006 100644
--- a/v7/src/runtime/x11graph.scm
+++ b/v7/src/runtime/x11graph.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: x11graph.scm,v 1.55 2003/02/14 18:28:34 cph Exp $
+$Id: x11graph.scm,v 1.56 2003/03/07 20:48:09 cph Exp $
 
 Copyright 1989,1990,1991,1992,1993,1995 Massachusetts Institute of Technology
 Copyright 1996,1997,1998,1999,2000,2001 Massachusetts Institute of Technology
@@ -932,17 +932,16 @@ USA.
 
 ;;;; Colormaps
 
-(define x-colormap?)
-(define %make-colormap)
-(define colormap/descriptor)
+(define-record-type <colormap>
+    (%make-colormap descriptor)
+    x-colormap?
+  (descriptor colormap/descriptor))
+
 (define colormap-list)
 
 (define (initialize-colormap-datatype)
-  (let ((rtd (make-record-type "colormap" '(DESCRIPTOR))))
-    (set! x-colormap? (record-predicate rtd))
-    (set! %make-colormap (record-constructor rtd))
-    (set! colormap/descriptor (record-accessor rtd 'DESCRIPTOR)))
-  (set! colormap-list (make-gc-finalizer x-free-colormap)))
+  (set! colormap-list (make-gc-finalizer x-free-colormap))
+  unspecific)
 
 (define (make-colormap descriptor)
   (let ((colormap (%make-colormap descriptor)))
-- 
2.25.1