;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'rng-util)
(defvar rng-dt-error-reporter nil)
#@26 

(fn STRING &rest OBJS)
(defalias 'rng-dt-error #[385 "\205\n\301B\"\207" [rng-dt-error-reporter apply] 6 (#$ . 139)])
#@410 A list used by datatype libraries to expand names.
The car of the list is a symbol which is the name of a function.
This function is applied to the cdr of the list.  The function must
return a list whose car is the default namespace and whose cdr is an
alist of (PREFIX . NAMESPACE) pairs, where PREFIX is a string and
NAMESPACE is a symbol.  This must be dynamically bound before calling
a datatype library.
(defvar rng-dt-namespace-context-getter nil (#$ . 271))
#@15 

(fn DT STR)
(defalias 'rng-dt-make-value #[514 "\300@AB\"\207" [apply] 6 (#$ . 742)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put rng-dt-make-value speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@20 

(fn NAME PARAMS)
(defalias 'rng-dt-builtin-compile #[514 "
\300\267\202\211\204\f\301\207\302\303!\207\211\204\304\207\302\305!\207\302\306\"\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (string 6 token 16)) (t identity) rng-dt-error "The string datatype does not take any parameters" (t rng-collapse-space) "The token datatype does not take any parameters" "There is no built-in datatype %s"] 5 (#$ . 982)])
(byte-code "\300\301\302!\303\304#\210\305\306!\207" [put rng-make-datatypes-uri "" rng-dt-compile rng-dt-builtin-compile provide rng-dt] 4)