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,12 +11,14 @@
(define-syntax-rule (delay e) (promise (lambda () e) #f)) (define-syntax-rule (delay e) (promise (lambda () e) #f))
(define (force v) (define (force v)
(cond [(promise? v) (cond
(define s (promise-status v)) [(promise? v)
(cond [(not s) (define s (promise-status v))
(define result ((promise-val v))) (cond
(set-promise-val! v result) [(not s)
(set-promise-status! v #t) (define result ((promise-val v)))
result] (set-promise-val! v result)
[else (promise-val v)])] (set-promise-status! v #t)
[else v])) result]
[else (promise-val v)])]
[else v]))