style nit: cond on its own line

This commit is contained in:
Matthew Flatt 2018-06-21 08:59:37 -06:00
parent b6a3f40bd9
commit d4fc865319

View File

@ -11,9 +11,11 @@
(define-syntax-rule (delay e) (promise (lambda () e) #f))
(define (force v)
(cond [(promise? v)
(cond
[(promise? v)
(define s (promise-status v))
(cond [(not s)
(cond
[(not s)
(define result ((promise-val v)))
(set-promise-val! v result)
(set-promise-status! v #t)