[nop] Housekeeping

This commit is contained in:
Peter Taoussanis 2025-12-03 08:20:38 +01:00
parent 3ee735ef6c
commit 82e8cfaeb6

View file

@ -38,11 +38,11 @@
[error msg {:vargs vargs}]) [error msg {:vargs vargs}])
(let [md (if (and (map? v0) (get (meta v0) :meta)) v0 nil) (let [md (if (and (map? v0) (get (meta v0) :meta)) v0 nil)
error (get md :err) error (get md :err)
md (dissoc md :err) md (dissoc md :err)
vargs (if md (enc/vrest vargs) vargs) vargs (if md (enc/vrest vargs) vargs)
pattern (if format-msg? (let [[v0] vargs] v0) nil) pattern (if format-msg? (let [[v0] vargs] v0) nil)
vargs (if format-msg? (enc/vrest vargs) vargs) vargs (if format-msg? (enc/vrest vargs) vargs)
msg msg
(delay (delay
(if format-msg? (if format-msg?