diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-11-19 18:16:42 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-11-19 18:16:42 -0800 |
| commit | 72c88930b62b9bc64804048b9759bc7ed95cd789 (patch) | |
| tree | 8fe2b20776004a0f11df3ed38936420246c3f2ca /share/txr/stdlib/trace.tl | |
| parent | fe8c0def43c5248e00278cf8c05a1cf9bbc6b688 (diff) | |
| download | txr-72c88930b62b9bc64804048b9759bc7ed95cd789.tar.gz txr-72c88930b62b9bc64804048b9759bc7ed95cd789.tar.bz2 txr-72c88930b62b9bc64804048b9759bc7ed95cd789.zip | |
Bugfix: cannot untrace individual method.
* share/txr/stdlib/trace.tl (sys:*trace-hash*): Hash must be
equal-based to correctly support compound places.
Diffstat (limited to 'share/txr/stdlib/trace.tl')
| -rw-r--r-- | share/txr/stdlib/trace.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/trace.tl b/share/txr/stdlib/trace.tl index 9cf6729c..951b67f8 100644 --- a/share/txr/stdlib/trace.tl +++ b/share/txr/stdlib/trace.tl @@ -1,6 +1,6 @@ (defvar *trace-output* *stdout*) -(defvar sys:*trace-hash* (hash)) +(defvar sys:*trace-hash* (hash :equal-based)) (defvar sys:*trace-level* -1) (defun sys:trace-enter (name args) |