diff options
| -rw-r--r-- | share/txr/stdlib/trace.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/trace.tl b/share/txr/stdlib/trace.tl index 6cc97914..d5ecd103 100644 --- a/share/txr/stdlib/trace.tl +++ b/share/txr/stdlib/trace.tl @@ -51,8 +51,8 @@ val)) (if abandoned (sys:trace-leave lex-n :abandoned))))))) - (set [sys:*trace-hash* n] prev) - (set (symbol-function n) hook))))))) + (set (symbol-function n) hook + [sys:*trace-hash* n] prev))))))) (defun sys:untrace (names) (flet ((disable (name-orig name) |