suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

style nit: cond on its own line

Browse Source
This commit is contained in:
Matthew Flatt 2018-06-21 08:59:37 -06:00
parent b6a3f40bd9
commit d4fc865319
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/src/expander/common/promise.rkt
View File

@ -11,9 +11,11 @@
(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
[(promise? v)
(define s (promise-status v)) (define s (promise-status v))
(cond [(not s) (cond
[(not s)
(define result ((promise-val v))) (define result ((promise-val v)))
(set-promise-val! v result) (set-promise-val! v result)
(set-promise-status! v #t) (set-promise-status! v #t)