Use helper to define rtd record predicate too.

Author: David Frese

src/active/clojure/record_helper.cljc

@@ -342,7 +342,7 @@
 
           ;; Predicate
           (def ~(add-meta (add-predicate-doc type predicate ?docref) meta-data)
-            (fn [x#] (rrun/record-of-type? x# ~rtd-symbol)))
+            (rrun/record-type-predicate ~rtd-symbol))
 
           ;; Constructor
           ;; We are defining a anonymous function for the define constructor function.

src/active/clojure/record_runtime.cljc

@@ -160,9 +160,13 @@
   (.-rtd r))
 
 (defn record-of-type?
-  [^Record r ^RecordTypeDescriptor rtd]
+  [r ^RecordTypeDescriptor rtd]
   (and (record? r)
-       (rtd= rtd (.-rtd r))))
+       (rtd= rtd (.-rtd ^Record r))))
+
+(defn record-type-predicate [^RecordTypeDescriptor rtd]
+  (fn [x]
+    (record-of-type? x rtd)))
 
 ; assumes that ?r, ?rtd are identifiers alerady
 (defmacro record-check-rtd!