From 72c88930b62b9bc64804048b9759bc7ed95cd789 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 19 Nov 2016 18:16:42 -0800 Subject: Bugfix: cannot untrace individual method. * share/txr/stdlib/trace.tl (sys:*trace-hash*): Hash must be equal-based to correctly support compound places. --- share/txr/stdlib/trace.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'share') 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) -- cgit v1.2.3