fix(clojure): type error evilifying cider-debug keys

This commit is contained in:
Prikaz98
2024-10-03 06:36:57 +02:00
committed by GitHub
parent df65137730
commit 9d859f62e4

View File

@ -131,9 +131,10 @@
(let* ((from (car replacement)) (let* ((from (car replacement))
(to (cadr replacement)) (to (cadr replacement))
(item (assoc from cider-debug-prompt-commands))) (item (assoc from cider-debug-prompt-commands)))
(when item
;; Position matters, hence the update-in-place ;; Position matters, hence the update-in-place
(setf (car item) (car to)) (setf (car item) (car to))
(setf (cdr item) (cdr to)))) (setf (cdr item) (cdr to)))))
'((?h (?H "here" "Here")) '((?h (?H "here" "Here"))
(?i (?I "in" "In")) (?i (?I "in" "In"))
(?j (?J "inject" "inJect")) (?j (?J "inject" "inJect"))