From 3476cea31779d4e74f70bc5384de645597b91ddb Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 7 Jan 2017 22:43:41 -0800
Subject: [PATCH] Rename tagging to predicate-tagging to clarify its purpose.

---
 src/runtime/make.scm                               | 4 ++--
 src/runtime/{tagging.scm => predicate-tagging.scm} | 2 +-
 src/runtime/runtime.pkg                            | 8 ++++----
 3 files changed, 7 insertions(+), 7 deletions(-)
 rename src/runtime/{tagging.scm => predicate-tagging.scm} (99%)

diff --git a/src/runtime/make.scm b/src/runtime/make.scm
index 734eb8ae4..7fde57117 100644
--- a/src/runtime/make.scm
+++ b/src/runtime/make.scm
@@ -452,10 +452,10 @@ USA.
    (RUNTIME MEMOIZER)
    (RUNTIME PREDICATE-METADATA)
    (RUNTIME PREDICATE-LATTICE)
+   (RUNTIME PREDICATE-TAGGING)
+   (RUNTIME PREDICATE-DISPATCH)
    (RUNTIME COMPOUND-PREDICATE)
    (RUNTIME PARAMETRIC-PREDICATE)
-   (RUNTIME TAGGING)
-   (RUNTIME PREDICATE-DISPATCH)
    (RUNTIME HASH)
    (RUNTIME DYNAMIC)
    (RUNTIME REGULAR-SEXPRESSION)
diff --git a/src/runtime/tagging.scm b/src/runtime/predicate-tagging.scm
similarity index 99%
rename from src/runtime/tagging.scm
rename to src/runtime/predicate-tagging.scm
index 11576336f..490fdfe9f 100644
--- a/src/runtime/tagging.scm
+++ b/src/runtime/predicate-tagging.scm
@@ -25,7 +25,7 @@ USA.
 |#
 
 ;;;; Predicates: tagging
-;;; package: (runtime tagging)
+;;; package: (runtime predicate-tagging)
 
 (declare (usual-integrations))
 
diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index d8008a2ce..83444f75a 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -1736,7 +1736,7 @@ USA.
 	  unary-procedure?)
   (export (runtime continuation-parser)
 	  compiled-procedure-frame-size)
-  (export (runtime tagging)
+  (export (runtime predicate-tagging)
 	  %entity-is-apply-hook?))
 
 (define-package (runtime predicate-metadata)
@@ -1823,8 +1823,8 @@ USA.
           predicate-template-predicate
           predicate-template?))
 
-(define-package (runtime tagging)
-  (files "tagging")
+(define-package (runtime predicate-tagging)
+  (files "predicate-tagging")
   (parent (runtime))
   (export ()
 	  object->datum
@@ -3674,7 +3674,7 @@ USA.
 	  structure-tag/unparser-method)
   (export (runtime predicate-metadata)
 	  cleanup-boot-time-record-predicates!)
-  (export (runtime tagging)
+  (export (runtime predicate-tagging)
 	  %record-type-descriptor
 	  %record-type-tag)
   (initialization (initialize-package!)))
-- 
2.25.1