;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@48 Delay the evaluation of BODY.
(fn &rest BODY)
(defalias 'thunk-delay '(macro . #[128 "\300\301!\300\302!\303D\304\305\306\307\310 \311\n\312BE\311\f\313BBF\257EE\207" [make-symbol "forced" "val" let lambda (&optional check) if check unless setf progn (t)] 16 (#$ . 408)]))
(put 'thunk-delay 'edebug-form-spec t)
#@142 Force the evaluation of DELAYED.
The result is cached and will be returned on subsequent calls
with the same DELAYED argument.
(fn DELAYED)
(defalias 'thunk-force #[257 "\211 \207" [] 2 (#$ . 740)])
#@61 Return non-nil if DELAYED has been evaluated.
(fn DELAYED)
(defalias 'thunk-evaluated-p #[257 "\211\300!\207" [t] 3 (#$ . 946)])
(provide 'thunk)
|