* eval.c (eval_init): Missing documented memql function registered.

* txr.vim: Updated with numerous missing symbols.

1 files changed, 21 insertions, 9 deletions

diff --git a/txr.vim b/txr.vim
index a4659ba9..d6a15025 100644
--- a/txr.vim
+++ b/txr.vim
@@ -17,10 +17,10 @@ syn spell toplevel
 
 setlocal iskeyword=a-z,A-Z,48-57,!,$,&,*,+,-,<,=,>,?,\\,_,~,^
 
-syn keyword txr_keyword contained skip trailer freeform block accept fail
+syn keyword txr_keyword contained skip fuzz trailer freeform block accept fail
 syn keyword txr_keyword contained next some all none and or
 syn keyword txr_keyword contained maybe cases choose gather collect coll until last end
-syn keyword txr_keyword contained flatten forget local merge bind set cat output
+syn keyword txr_keyword contained flatten lazy-flatten forget local merge bind set cat output
 syn keyword txr_keyword contained repeat rep first last single empty mod modlast
 syn keyword txr_keyword contained define try catch finally throw
 syn keyword txr_keyword contained defex throw deffilter filter eof eol do
@@ -33,14 +33,19 @@ syn keyword txl_keyword contained return return-from
 
 syn keyword txl_keyword contained cons make-lazy-cons lcons-fun car cdr
 syn keyword txl_keyword contained rplaca rplacd first rest append list
-syn keyword txl_keyword contained identity typeof atom null consp listp
+syn keyword txl_keyword contained identity typeof atom null not consp listp
 syn keyword txl_keyword contained proper-listp length-list mapcar mappend apply
+syn keyword txl_keyword contained reduce-left reduce-right
 syn keyword txl_keyword contained second third fourth fifth sixth copy-list nreverse
-syn keyword txl_keyword contained reverse ldiff flatten memq memqual tree-find some
-syn keyword txl_keyword contained all none eq eql equal + - * trunc mod numberp >
+syn keyword txl_keyword contained reverse ldiff flatten lazy-flatten
+syn keyword txl_keyword contained memq memql memqual tree-find some
+syn keyword txl_keyword contained all none eq eql equal + - * abs trunc mod 
+syn keyword txl_keyword contained expt exptmod sqrt gcd fixnump bignump 
+syn keyword txl_keyword contained numberp zerop evenp oddp >
 syn keyword txl_keyword contained < >= <= max min search-regex match-regex
 syn keyword txl_keyword contained make-hash gethash sethash pushhash remhash
-syn keyword txl_keyword contained hash-count hashp maphash eval *stdout* *stdin*
+syn keyword txl_keyword contained hash-count get-hash-userdata set-hash-userdatahashp maphash 
+syn keyword txl_keyword contained hash-eql hash-equal eval *stdout* *stdin*
 syn keyword txl_keyword contained *stderr* format print pprint make-string-input-stream
 syn keyword txl_keyword contained make-string-byte-input-stream make-string-output-stream
 syn keyword txl_keyword contained get-string-from-stream make-strlist-output-stream
@@ -48,7 +53,7 @@ syn keyword txl_keyword contained get-list-from-stream close-stream
 syn keyword txl_keyword contained get-line get-char get-byte put-string put-line
 syn keyword txl_keyword contained put-char flush-stream open-directory open-file
 syn keyword txl_keyword contained open-pipe *user-package* *keyword-package* *system-package*
-syn keyword txl_keyword contained make-sym make-package find-package
+syn keyword txl_keyword contained make-sym gensym *gensym-counter* make-package find-package
 syn keyword txl_keyword contained intern symbolp symbol-name symbol-package keywordp
 syn keyword txl_keyword contained mkstring copy-str upcase-str downcase-str string-extend
 syn keyword txl_keyword contained stringp lazy-stringp length-str search-str search-str-tree
@@ -57,13 +62,20 @@ syn keyword txl_keyword contained string-lt int-str chrp chr-isalnum chr-isalpha
 syn keyword txl_keyword contained chr-isascii chr-iscntrl chr-isdigit chr-isgraph
 syn keyword txl_keyword contained chr-islower chr-isprint chr-ispunct chr-isspace chr-isupper
 syn keyword txl_keyword contained chr-isxdigit chr-toupper chr-tolower chr-str
+syn keyword txl_keyword contained num-chr chr-num
 syn keyword txl_keyword contained chr-str-set span-str compl-span-str break-str
-syn keyword txl_keyword contained vector vec-get-fill vec-set-fill vecref
+syn keyword txl_keyword contained vector vec-set-length vecref
 syn keyword txl_keyword contained vec-push length-vec size-vec vector-list
-syn keyword txl_keyword contained list-vector assoc assq acons acons-new
+syn keyword txl_keyword contained list-vector copy-vec sub-vec cat-vec
+syn keyword txl_keyword contained assoc assq acons acons-new
 syn keyword txl_keyword contained aconsq-new alist-remove alist-nremove copy-cons
 syn keyword txl_keyword contained copy-alist merge sort find set-diff length
 
+syn keyword txl_keyword contained symbol-function func-get-form func-get-env
+syn keyword txl_keyword contained functionp interp-fun-p *random-state*
+syn keyword txl_keyword contained make-random-state random-state-p
+syn keyword txl_keyword contained random-fixnum random
+
 syn match txr_hash "#" contained
 syn match txr_quote "[,']" contained