better source description in backtraces

parent 7b2be7d5
......@@ -101,7 +101,9 @@
(define (set-procedure-property!-- x k v)
(let ((w (procedure-properties-- x '())))
(set-procedure-properties!-- x (cons (cons k v) w))))
(aif it (assoc k w)
(set-cdr! it v)
(set-procedure-properties!-- x (cons (cons k v) w)))))
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment