diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2014-03-02 22:04:16 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2014-03-02 22:04:16 -0800 |
| commit | cb4b820893b2cc48a70f2a2f0d70863fb191d7aa (patch) | |
| tree | f6a6b004d2dfe0daec6b0a726c53817780601949 /eval.c | |
| parent | e23eefb30af6f88ca18887131c547a545c9edbef (diff) | |
| download | txr-cb4b820893b2cc48a70f2a2f0d70863fb191d7aa.tar.gz txr-cb4b820893b2cc48a70f2a2f0d70863fb191d7aa.tar.bz2 txr-cb4b820893b2cc48a70f2a2f0d70863fb191d7aa.zip | |
* eval.c (make_env_intrinsic): New static function.
(eval_init): Register new intrinsics make-env, env-fbind and env-vbind.
* txr.1: Documented.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 15 |
1 files changed, 15 insertions, 0 deletions
@@ -100,6 +100,18 @@ val make_env(val vbindings, val fbindings, val up_env) return env; } +/* + * Wrapper for performance reasons: don't make make_env + * process default arguments. + */ +static val make_env_intrinsic(val vbindings, val fbindings, val up_env) +{ + vbindings = default_bool_arg(vbindings); + fbindings = default_bool_arg(fbindings); + up_env = default_bool_arg(up_env); + return make_env(vbindings, fbindings, up_env); +} + val env_fbind(val env, val sym, val fun) { val cell; @@ -3309,6 +3321,9 @@ void eval_init(void) func_n2o(macroexpand_1, 1)); reg_fun(intern(lit("macroexpand"), user_package), func_n2o(macroexpand, 1)); + reg_fun(intern(lit("make-env"), user_package), func_n3o(make_env_intrinsic, 0)); + reg_fun(intern(lit("env-fbind"), user_package), func_n3(env_fbind)); + reg_fun(intern(lit("env-vbind"), user_package), func_n3(env_vbind)); reg_fun(intern(lit("chain"), user_package), func_n0v(chainv)); reg_fun(intern(lit("andf"), user_package), func_n0v(andv)); reg_fun(intern(lit("orf"), user_package), func_n0v(orv)); |