diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-14 20:08:37 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-14 20:08:37 -0700 |
| commit | e6c37abe560ef78b8ba052fdd2d5034a5c57977d (patch) | |
| tree | e735a514c57b4bb9a27fba3a54c704b5bc30c91c | |
| parent | a37b4bab06f975c085d3ae8812776bdf41755819 (diff) | |
| download | txr-e6c37abe560ef78b8ba052fdd2d5034a5c57977d.tar.gz txr-e6c37abe560ef78b8ba052fdd2d5034a5c57977d.tar.bz2 txr-e6c37abe560ef78b8ba052fdd2d5034a5c57977d.zip | |
structs: spurious hiding of defmeth: fix needed.
* eval.c (op_defun): There is a hidden reference to the
sys:defmeth function here, which should have been
updated in commit 0ae617f463290ff4463db2e479604808f940cc76
that renamed the function to define-method!
Caught this by incidental code inspection, browsing
through special forms in the context of working on the
compiler.
| -rw-r--r-- | eval.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1863,7 +1863,7 @@ static val op_defun(val form, val env) uw_purge_deferred_warning(cons(sym_s, name)); return name; } else if (car(name) == meth_s) { - val binding = lookup_fun(nil, intern(lit("defmeth"), system_package)); + val binding = lookup_fun(nil, intern(lit("define-method"), system_package)); val type_sym = second(name); val meth_name = third(name); val block = cons(block_s, cons(meth_name, body)); |