From df5619a664883cffc777c4a957ebd97c4cae7b79 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 17 Jan 2017 16:17:21 -0800 Subject: [PATCH] Fix some pagination. --- src/runtime/list.scm | 2 +- src/runtime/predicate-metadata.scm | 14 +++++++------- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/src/runtime/list.scm b/src/runtime/list.scm index 732fcaadd..32fcdd3e6 100644 --- 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") - + (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 49415ff14..59234a447 100644 --- 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))))) - + (define (tag-description tag) (or (%tag-description tag) (object->description (tag-name tag)))) -- 2.25.1