This commit is contained in:
David Van Horn 2021-02-17 14:45:37 -05:00 committed by Sam Tobin-Hochstadt
parent 89130bd64f
commit f060ba5cd5

View File

@ -517,7 +517,7 @@
atomic? orig-place? blocking? callback-exns? atomic? orig-place? blocking? callback-exns?
async-apply errno lock-name)) async-apply errno lock-name))
;; A lightwegith delay meachnism for a single-argument function when ;; A lightweight delay mechanism for a single-argument function when
;; it's ok (but unlikely) to evaluate `expr` more than once and keep ;; it's ok (but unlikely) to evaluate `expr` more than once and keep
;; the first result: ;; the first result:
(define-syntax-rule (delay/cas expr) (define-syntax-rule (delay/cas expr)