From 0f050c4f3d57605ad0692e5abf2f61d0e75f408e Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 1 Aug 2015 09:32:22 -0700 Subject: * eval.c (special_p): Function renamed to special_var_p. (expand_opt_params_rec, expand_vars): Follow rename of special_p. (eval_init): Register special-operator-p and special-var-p intrinsics. * txr.1: Document special-operator-p and special-var-p. --- txr.1 | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) (limited to 'txr.1') diff --git a/txr.1 b/txr.1 index f45d8ea9..2e6be395 100644 --- a/txr.1 +++ b/txr.1 @@ -12693,6 +12693,40 @@ if is an interpreted function, otherwise it returns .codn nil . +.coNP Function @ special-var-p +.synb +.mets (special-var-p << obj ) +.syne +.desc + +The +.code special-var-p +function returns +.code t +if +.meta obj +is a symbol marked for special variable binding, otherwise it returns +.codn nil . +Symbols are marked special by +.code defvar +and +.codn defparm . + +.coNP Function @ special-operator-p +.synb +.mets (special-operator-p << obj ) +.syne +.desc + +The +.code special-operator-p +function returns +.code t +if +.meta obj +is a symbol which names a special operator, otherwise it returns +.codn nil . + .SS* Object Type And Equivalence .coNP Function @ typeof .synb -- cgit v1.2.3