Move dispatch-tag print method into gentag.scm.

diff --git a/src/runtime/gentag.scm b/src/runtime/gentag.scm
index f54fd29e96df68281b3b5f726c117d5233807834..2a4487ddfc5c288c26ff5b506e4e40071ffa2507 100644 (file)
--- a/src/runtime/gentag.scm
+++ b/src/runtime/gentag.scm
@@ -49,6 +49,11 @@ USA.
   (and (%record? object)
        (eq? dispatch-tag-marker (%record-ref object 0))))
 
+(define-unparser-method dispatch-tag?
+  (simple-unparser-method 'dispatch-tag
+    (lambda (tag)
+      (list (dispatch-tag-contents tag)))))
+
 (define-integrable dispatch-tag-marker
   ((ucode-primitive string->symbol) "#[dispatch-tag]"))
 

diff --git a/src/runtime/record.scm b/src/runtime/record.scm
index 3588c244a3d07b3d34349b008ad0cdd05700b07c..71a20181fbe2c5189e87c03bb0cc56afc36c13e1 100644 (file)
--- a/src/runtime/record.scm
+++ b/src/runtime/record.scm
@@ -524,7 +524,7 @@ USA.
 ;;;; Printing
 
 (define-unparser-method %record?
- (standard-unparser-method 'record #f))
+  (standard-unparser-method 'record #f))
 
 (define-unparser-method record?
   (standard-unparser-method
@@ -539,15 +539,6 @@ USA.
       (write-char #\space port)
       (display (%record-type-name type) port))))
 
-(define-unparser-method dispatch-tag?
-  (simple-unparser-method 'dispatch-tag
-    (lambda (tag)
-      (list (dispatch-tag-contents tag)))))
-
-(define (set-record-type-unparser-method! record-type method)
-  (define-unparser-method (record-predicate record-type)
-    method))
-
 (define-pp-describer %record?
   (lambda (record)
     (let loop ((i (fix:- (%record-length record) 1)) (d '()))
@@ -564,10 +555,16 @@ USA.
               ,((record-accessor type field-name) record)))
           (record-type-field-names type)))))
 
+;;; These are for backwards compatibility:
+
+(define (set-record-type-unparser-method! record-type method)
+  (define-unparser-method (record-predicate record-type)
+    method))
+
 (define (set-record-type-describer! record-type describer)
   (define-pp-describer (record-predicate record-type)
     describer))
-\f
+
 (define (set-record-type-entity-unparser-method! record-type method)
   (define-unparser-method (record-entity-predicate record-type)
     method))