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))
(to (cadr replacement))
(item (assoc from cider-debug-prompt-commands)))
;; Position matters, hence the update-in-place
(setf (car item) (car to))
(setf (cdr item) (cdr to))))
(when item
;; Position matters, hence the update-in-place
(setf (car item) (car to))
(setf (cdr item) (cdr to)))))
'((?h (?H "here" "Here"))
(?i (?I "in" "In"))
(?j (?J "inject" "inJect"))