;ELC   
;;; Compiled by jjc@pineapple.bkk.thaiopensource.com on Mon Oct  4 11:58:41 2004
;;; from file /home/jjc/elisp/rng-dt.el
;;; in Emacs version 21.3.1
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`rng-dt.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\302\303!\210\301B\304\301!\204 \305\305\207" [current-load-list rng-dt-error-reporter require rng-util boundp nil] 2)
(defalias 'rng-dt-error #[(string &rest objs) "\205\n \303	\nB\"\207" [rng-dt-error-reporter string objs apply] 4])
#@412 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 (#$ . 865))
(defalias 'rng-dt-make-value #[(dt str) "\302@	AB\"\207" [dt str apply] 4])
(put 'rng-dt-make-value 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'rng-dt-builtin-compile #[(name params) "\302=\203 	\204\f \303\207\304\305!\207\306=\203  	\204 \307\207\304\310!\207\304\311\"\207" [name params string (t identity) rng-dt-error "The string datatype does not take any parameters" token (t rng-collapse-space) "The token datatype does not take any parameters" "There is no built-in datatype %s"] 3])
(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)