diff options
| author | Paul A. Patience <paul@apatience.com> | 2021-07-18 21:06:40 -0400 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-27 22:28:09 -0700 |
| commit | 8384b0fbcbf329dd7f234546f50f2600a5c8b6b4 (patch) | |
| tree | dd46db98087b5668202055a400f1ef23fa1fdef1 | |
| parent | ed02938910a99a4f098bc4016b04362919b84840 (diff) | |
| download | txr-8384b0fbcbf329dd7f234546f50f2600a5c8b6b4.tar.gz txr-8384b0fbcbf329dd7f234546f50f2600a5c8b6b4.tar.bz2 txr-8384b0fbcbf329dd7f234546f50f2600a5c8b6b4.zip | |
places: remove unnecessary zap_s variable.
The zap_s variable is a vestige of op_modplace. It must have been missed
when op_modplace was removed in commit
209e731429a0fd890ec6d922c1efc6f02d81a032.
* eval.c (zap_s): Delete variable.
(eval_init): Remove initialization of zap_s.
* protsym.c (zap_s): Remove extern variable declaration.
(protected_sym): Remove reference to zap_s.
| -rw-r--r-- | eval.c | 3 | ||||
| -rw-r--r-- | protsym.c | 4 |
2 files changed, 3 insertions, 4 deletions
@@ -86,7 +86,7 @@ val eq_s, eql_s, equal_s, less_s; val car_s, cdr_s, not_s, vecref_s; val setq_s, setqf_s, sys_lisp1_value_s, sys_lisp1_setq_s; val sys_l1_val_s, sys_l1_setq_s; -val inc_s, zap_s; +val inc_s; val for_s, for_star_s, each_s, each_star_s, collect_each_s, collect_each_star_s; val for_op_s, each_op_s; val append_each_s, append_each_star_s, while_s, while_star_s, until_star_s; @@ -6560,7 +6560,6 @@ void eval_init(void) sys_l1_val_s = intern(lit("l1-val"), system_package); setqf_s = intern(lit("setqf"), system_package); inc_s = intern(lit("inc"), user_package); - zap_s = intern(lit("zap"), user_package); for_s = intern(lit("for"), user_package); for_star_s = intern(lit("for*"), user_package); each_s = intern(lit("each"), user_package); @@ -150,7 +150,7 @@ extern val vm_closure_s, vm_desc_s, void_s, warning_s, wchar_s; extern val weak_and_k, weak_keys_k, weak_or_k, weak_vals_k, when_s; extern val while_s, while_star_s, whole_k, width_s, wild_s; extern val word_char_k, wrap_k, wstr_d_s, wstr_s, year_s; -extern val zap_s, zarray_s, zchar_s, zerop_s, zeroplus_s; +extern val zarray_s, zchar_s, zerop_s, zeroplus_s; extern val zone_s; #if HAVE_DLOPEN @@ -306,7 +306,7 @@ val *protected_sym[] = { &weak_and_k, &weak_keys_k, &weak_or_k, &weak_vals_k, &when_s, &while_s, &while_star_s, &whole_k, &width_s, &wild_s, &word_char_k, &wrap_k, &wstr_d_s, &wstr_s, &year_s, - &zap_s, &zarray_s, &zchar_s, &zerop_s, &zeroplus_s, + &zarray_s, &zchar_s, &zerop_s, &zeroplus_s, &zone_s, #if HAVE_DLOPEN |