From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 Mar 2003 21:18:22 +0000 (+0000)
Subject: Use angle notation for type descriptor.
X-Git-Tag: 20090517-FFI~1984
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9657716e9af969617031a869e2756d7cff681d43;p=mit-scheme.git

Use angle notation for type descriptor.
---

diff --git a/v7/src/runtime/port.scm b/v7/src/runtime/port.scm
index 4fe59be4d..15e31739f 100644
--- a/v7/src/runtime/port.scm
+++ b/v7/src/runtime/port.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: port.scm,v 1.28 2003/03/07 20:36:53 cph Exp $
+$Id: port.scm,v 1.29 2003/03/07 21:16:27 cph Exp $
 
 Copyright 1991,1992,1993,1994,1997,1999 Massachusetts Institute of Technology
 Copyright 2001,2002,2003 Massachusetts Institute of Technology
@@ -29,7 +29,7 @@ USA.
 
 (declare (usual-integrations))
 
-(define-structure (port-type (type-descriptor port-type-rtd)
+(define-structure (port-type (type-descriptor <port-type>)
 			     (conc-name port-type/)
 			     (constructor %make-port-type (custom-operations)))
   custom-operations
@@ -48,7 +48,7 @@ USA.
   (flush-output #f read-only #t)
   (discretionary-flush-output #f read-only #t))
 
-(set-record-type-unparser-method! port-type-rtd
+(set-record-type-unparser-method! <port-type>
   (lambda (state type)
     ((standard-unparser-method
       (if (port-type/supports-input? type)
@@ -99,11 +99,11 @@ USA.
     READ-SUBSTRING))
 
 (define input-operation-accessors
-  (map (lambda (name) (record-accessor port-type-rtd name))
+  (map (lambda (name) (record-accessor <port-type> name))
        input-operation-names))
 
 (define input-operation-modifiers
-  (map (lambda (name) (record-modifier port-type-rtd name))
+  (map (lambda (name) (record-modifier <port-type> name))
        input-operation-names))
 
 (define output-operation-names
@@ -114,11 +114,11 @@ USA.
     WRITE-SUBSTRING))
 
 (define output-operation-accessors
-  (map (lambda (name) (record-accessor port-type-rtd name))
+  (map (lambda (name) (record-accessor <port-type> name))
        output-operation-names))
 
 (define output-operation-modifiers
-  (map (lambda (name) (record-modifier port-type-rtd name))
+  (map (lambda (name) (record-modifier <port-type> name))
        output-operation-names))
 
 (define (port-type/operation-names type)
@@ -459,7 +459,7 @@ USA.
 
 (define extract-operation!
   (let ((set-port-type/custom-operations!
-	 (record-modifier port-type-rtd 'CUSTOM-OPERATIONS)))
+	 (record-modifier <port-type> 'CUSTOM-OPERATIONS)))
     (lambda (type name)
       (let ((operation (assq name (port-type/custom-operations type))))
 	(and operation
diff --git a/v7/src/runtime/record.scm b/v7/src/runtime/record.scm
index 3c5173631..d98c74612 100644
--- a/v7/src/runtime/record.scm
+++ b/v7/src/runtime/record.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: record.scm,v 1.34 2003/03/07 19:08:28 cph Exp $
+$Id: record.scm,v 1.35 2003/03/07 21:18:22 cph Exp $
 
 Copyright 1989,1990,1991,1993,1994,1996 Massachusetts Institute of Technology
 Copyright 1997,2002,2003 Massachusetts Institute of Technology
@@ -433,7 +433,7 @@ USA.
 
 ;;;; Runtime support for DEFINE-STRUCTURE
 
-(define structure-type-rtd)
+(define <structure-type>)
 (define make-define-structure-type)
 (define structure-type?)
 (define structure-type/type)
@@ -444,26 +444,26 @@ USA.
 (define set-structure-type/unparser-method!)
 
 (define (initialize-structure-type-type!)
-  (set! structure-type-rtd
+  (set! <structure-type>
 	(make-record-type "structure-type"
 			  '(TYPE NAME FIELD-NAMES FIELD-INDEXES
 				 UNPARSER-METHOD)))
   (set! make-define-structure-type
-	(record-constructor structure-type-rtd))
+	(record-constructor <structure-type>))
   (set! structure-type?
-	(record-predicate structure-type-rtd))
+	(record-predicate <structure-type>))
   (set! structure-type/type
-	(record-accessor structure-type-rtd 'TYPE))
+	(record-accessor <structure-type> 'TYPE))
   (set! structure-type/name
-	(record-accessor structure-type-rtd 'NAME))
+	(record-accessor <structure-type> 'NAME))
   (set! structure-type/field-names
-	(record-accessor structure-type-rtd 'FIELD-NAMES))
+	(record-accessor <structure-type> 'FIELD-NAMES))
   (set! structure-type/field-indexes
-	(record-accessor structure-type-rtd 'FIELD-INDEXES))
+	(record-accessor <structure-type> 'FIELD-INDEXES))
   (set! structure-type/unparser-method
-	(record-accessor structure-type-rtd 'UNPARSER-METHOD))
+	(record-accessor <structure-type> 'UNPARSER-METHOD))
   (set! set-structure-type/unparser-method!
-	(record-modifier structure-type-rtd 'UNPARSER-METHOD))
+	(record-modifier <structure-type> 'UNPARSER-METHOD))
   unspecific)
 
 (define (structure-tag/unparser-method tag type)