Inline nrepl-dict predicates

clojure-emacs · Jun 11, 2024 · abe972a · abe972a
1 parent 9db0cee
commit abe972a
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/nrepl-dict.el b/nrepl-dict.el
@@ -45,12 +45,11 @@
     (maphash (lambda (k v) (nrepl-dict-put dict k v)) hash)
     dict))
 
-(defun nrepl-dict-p (object)
+(defsubst nrepl-dict-p (object)
   "Return t if OBJECT is an nREPL dict."
-  (and (listp object)
-       (eq (car object) 'dict)))
+  (eq (car-safe object) 'dict))
 
-(defun nrepl-dict-empty-p (dict)
+(defsubst nrepl-dict-empty-p (dict)
   "Return t if nREPL dict DICT is empty."
   (null (cdr dict)))