Function: ht-update-with!--inliner

ht-update-with!--inliner is a function defined in ht.el.

Signature

(ht-update-with!--inliner INLINE--FORM TABLE KEY UPDATER &optional DEFAULT)

Source Code

;; Defined in ~/.emacs.d/elpa/ht-20230703.558/ht.el
;; Closure converted to defun by helpful.
(defun ht-update-with!--inliner
    (inline--form table key updater &optional default)
  (ignore inline--form)
  (catch 'inline--just-use
    (list 'let*
	  (list
	   (list 'not-found-symbol
		 (list 'make-symbol "ht--not-found"))
	   (list 'v
		 (list 'gethash key table
		       (list 'or default 'not-found-symbol))))
	  (list 'unless
		(list 'eq 'v 'not-found-symbol)
		(list 'prog1 nil
		      (list 'puthash key
			    (list 'funcall updater 'v)
			    table))))))