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
;; Could not find source code, showing raw function object.
#[(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))))))
  (t)]