                      :form any?)
         :ret string?)
 (defn expound-str
-  "Given a `spec` and a `form`, either returns success message or returns a human-readable explanation as a string."
+  "Given a `spec` and a `form`, either returns success message or a human-readable error message."
   [spec form]
   ;; expound was initially released with support
   ;; for CLJS 1.9.542 which did not include

        :args (s/cat :k qualified-keyword?)
        :ret (s/nilable string?))
(defn error-message
  "Given a spec named `k`, return its human-readable error message"
  [k]
  (get @registry-ref k))


                     :form any?)
        :ret nil?)
(defn expound
  "Given a `spec` and a `form`, either prints a success message or a human-readable error message."
  [spec form]
  (print (expound-str spec form)))

