function | removed v1.9.854 | added v0.0-1424 | Edit |
(validate-unicode-escape unicode-pattern reader escape-char unicode-str)
(defn validate-unicode-escape [unicode-pattern reader escape-char unicode-str]
(if (re-matches unicode-pattern unicode-str)
unicode-str
(reader-error reader "Unexpected unicode escape \\" escape-char unicode-str)))