* eval.c (eval_init): Register bindable as intrinsic.

* txr.1: Documented.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index eae9e467..8993dca3 100644
--- a/eval.c
+++ b/eval.c
@@ -4351,7 +4351,7 @@ void eval_init(void)
   reg_fun(intern(lit("symbol-package"), user_package), func_n1(symbol_package));
   reg_fun(intern(lit("packagep"), user_package), func_n1(packagep));
   reg_fun(intern(lit("keywordp"), user_package), func_n1(keywordp));
-
+  reg_fun(intern(lit("bindable"), user_package), func_n1(bindable));
   reg_fun(intern(lit("mkstring"), user_package), func_n2(mkstring));
   reg_fun(intern(lit("copy-str"), user_package), func_n1(copy_str));
   reg_fun(intern(lit("upcase-str"), user_package), func_n1(upcase_str));