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)))
;; Position matters, hence the update-in-place (when item
(setf (car item) (car to)) ;; Position matters, hence the update-in-place
(setf (cdr item) (cdr to)))) (setf (car item) (car 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"))