Fix ordering and pagination.

diff --git a/v7/src/compiler/machines/C/cout.scm b/v7/src/compiler/machines/C/cout.scm
index 0e3c6dc3fa3130b71be2b58aeaf0fa0e1ac38ec7..89d56a0164548b63179be3d8822fd0ca681f4333 100644 (file)
--- a/v7/src/compiler/machines/C/cout.scm
+++ b/v7/src/compiler/machines/C/cout.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: cout.scm,v 1.13 1993/11/09 04:30:06 gjr Exp $
+$Id: cout.scm,v 1.14 1993/11/09 04:30:49 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -102,26 +102,6 @@ MIT in each case. |#
                            suffix
                            time-stamp)))))
 \f
-  (if *purification-root-object*
-      (define-object "PURIFICATION_ROOT"
-       (if (vector? (cdr *purification-root-object*))
-           *purification-root-object*
-           (cons (car *purification-root-object*)
-                 (list->vector
-                  (reverse (cdr *purification-root-object*)))))))
-
-  (define-object (special-label/debugging)
-    (let frob ((obj info-output-pathname))
-      (cond ((pathname? obj)
-            (->namestring obj))
-           ((pair? obj)
-            (cons (frob (car obj))
-                  (frob (cdr obj))))
-           (else
-            obj))))
-
-  (define-object (special-label/environment) unspecific)
-
   (define (subroutine-information-1)
     (cond ((eq? *invoke-interface* 'INFINITY)
           (values (list "") (list "")))
@@ -155,6 +135,26 @@ MIT in each case. |#
          (lambda (code-2 vars-2)
            (values (append code-1 code-2)
                    (append vars-1 vars-2)))))))
+
+  (if *purification-root-object*
+      (define-object "PURIFICATION_ROOT"
+       (if (vector? (cdr *purification-root-object*))
+           *purification-root-object*
+           (cons (car *purification-root-object*)
+                 (list->vector
+                  (reverse (cdr *purification-root-object*)))))))
+
+  (define-object (special-label/debugging)
+    (let frob ((obj info-output-pathname))
+      (cond ((pathname? obj)
+            (->namestring obj))
+           ((pair? obj)
+            (cons (frob (car obj))
+                  (frob (cdr obj))))
+           (else
+            obj))))
+
+  (define-object (special-label/environment) unspecific)
 \f
   (let ((n 1)                          ; First word is vector header
        (initial-offset (label->offset initial-label)))