better source description in backtraces

parent 7b2be7d5
...@@ -101,7 +101,9 @@ ...@@ -101,7 +101,9 @@
(define (set-procedure-property!-- x k v) (define (set-procedure-property!-- x k v)
(let ((w (procedure-properties-- x '()))) (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
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment