Fix some pagination.

diff --git a/src/runtime/list.scm b/src/runtime/list.scm
index 732fcaaddb36eb4364de70f13d1dce2bf9233b87..32fcdd3e65d0feb07cbc7900c622cf453927594d 100644 (file)
--- a/src/runtime/list.scm
+++ b/src/runtime/list.scm
@@ -1381,7 +1381,7 @@ USA.
        (null? l1))))
 
 (define-guarantee unique-keyword-list "unique keyword list")
-
+\f
 (define (get-keyword-value klist key #!optional default-value)
   (let ((lose (lambda () (error:not-a keyword-list? klist 'get-keyword-value))))
     (let loop ((klist klist))

diff --git a/src/runtime/predicate-metadata.scm b/src/runtime/predicate-metadata.scm
index 49415ff1479e7657a655e0861b59a310ab0266d2..59234a4474ef5a30d23623ca204e919ba9e4ca70 100644 (file)
--- a/src/runtime/predicate-metadata.scm
+++ b/src/runtime/predicate-metadata.scm
@@ -55,12 +55,6 @@ USA.
              (get-keyword-values keylist '<=))
     tag))
 
-(define (predicate->tag predicate #!optional caller)
-  (let ((tag (get-predicate-tag predicate #f)))
-    (if (not tag)
-        (error:not-a predicate? predicate caller))
-    tag))
-
 (define (predicate-name predicate)
   (tag-name (predicate->tag predicate 'predicate-name)))
 
@@ -86,6 +80,12 @@ USA.
 (define (unregister-predicate! predicate)
   (delete-tag! (predicate->tag predicate)))
 
+(define (predicate->tag predicate #!optional caller)
+  (let ((tag (get-predicate-tag predicate #f)))
+    (if (not tag)
+        (error:not-a predicate? predicate caller))
+    tag))
+
 (define (guarantee predicate object #!optional caller)
   (if (not (predicate object))
       (error:not-a predicate object caller))
@@ -149,7 +149,7 @@ USA.
   (simple-unparser-method 'tag
     (lambda (tag)
       (list (tag-name tag)))))
-
+\f
 (define (tag-description tag)
   (or (%tag-description tag)
       (object->description (tag-name tag))))