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

minor whitespace corrections

Browse Source
This commit is contained in:
Matthew Flatt 2020-03-13 11:32:16 -06:00
parent f1a177e880
commit c52d45613b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/src/cs/rumble/control.ss
View File

@ -589,7 +589,7 @@
(end-uninterrupted 'cc) (end-uninterrupted 'cc)
(if (#%procedure? args) (if (#%procedure? args)
(#%call-in-continuation (full-continuation-k c) (full-continuation-mark-stack c) (#%call-in-continuation (full-continuation-k c) (full-continuation-mark-stack c)
(lambda () (args))) (lambda () (args)))
(#%apply (full-continuation-k c) args))] (#%apply (full-continuation-k c) args))]
[(not (composable-continuation-wind? c)) [(not (composable-continuation-wind? c))
(apply-immediate-continuation/no-wind c args)] (apply-immediate-continuation/no-wind c args)]
@ -631,16 +631,16 @@
(end-uninterrupted 'cc) (end-uninterrupted 'cc)
(if (#%procedure? args) (if (#%procedure? args)
(#%call-in-continuation (full-continuation-k c) (full-continuation-mark-stack c) (#%call-in-continuation (full-continuation-k c) (full-continuation-mark-stack c)
(lambda () (args))) (lambda () (args)))
(#%apply (full-continuation-k c) args))] (#%apply (full-continuation-k c) args))]
[else [else
(let-values ([(common-mc ; shared part of the current metacontinuation (let-values ([(common-mc ; shared part of the current metacontinuation
rmc-append) ; non-shared part of the destination metacontinuation rmc-append) ; non-shared part of the destination metacontinuation
;; We check every time, just in case control operations ;; We check every time, just in case control operations
;; change the current continuation out from under us. ;; change the current continuation out from under us.
(find-common-metacontinuation c-mc (find-common-metacontinuation c-mc
mc mc
(strip-impersonator tag))]) (strip-impersonator tag))])
(let loop () (let loop ()
(cond (cond
[(eq? common-mc (current-metacontinuation)) [(eq? common-mc (current-metacontinuation))