style nit: cond
on its own line
This commit is contained in:
parent
b6a3f40bd9
commit
d4fc865319
|
@ -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]))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user