summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog6
-rw-r--r--eval.c2
-rw-r--r--txr.120
3 files changed, 27 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index a32c860b..710b3f54 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
2015-07-10 Kaz Kylheku <kaz@kylheku.com>
+ * eval.c (eval_init): Register bindable as intrinsic.
+
+ * txr.1: Documented.
+
+2015-07-10 Kaz Kylheku <kaz@kylheku.com>
+
New placelet macro.
* lisplib.c (place_set_entries): Add placelet to list of names.
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));
diff --git a/txr.1 b/txr.1
index ae27cc45..cbc37a1c 100644
--- a/txr.1
+++ b/txr.1
@@ -25320,6 +25320,26 @@ is a keyword symbol, otherwise it
returns
.codn nil .
+.coNP Function @ bindable
+.synb
+.mets (bindable << obj )
+.syne
+.desc
+The
+.code bindable
+function returns
+.code t
+if
+.meta obj
+is a bindable symbol, otherwise it returns
+.codn nil .
+
+All symbols are bindable, except for keyword symbols, and the
+special symbols
+.code t
+and
+.codn nil.
+
.SS* Pseudo-random Numbers
.coNP Special variable @ *random-state*
.desc