Use angle notation for type descriptor.

diff --git a/v7/src/runtime/port.scm b/v7/src/runtime/port.scm
index 4fe59be4d05dd67537f1d52f8e7ad89b65c9181e..15e31739f3e825d08a0468def3eb2fccc7f99cbf 100644 (file)
--- 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))
 \f
-(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 3c5173631d038d3068359dd7707e25a8a30effb2..d98c746125e908b510da1c96ee4164e1d17614f1 100644 (file)
--- 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.
 \f
 ;;;; 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)