Fixing slight bug
svn: r14872
This commit is contained in:
parent
e51ca461ae
commit
bf36c8283e
|
@ -182,7 +182,7 @@
|
|||
(define (serial->native* thnk)
|
||||
(call-with-continuation-prompt thnk unsafe-barrier-prompt-tag))
|
||||
(define (native->serial* thnk)
|
||||
(call-with-current-continuation
|
||||
(call-with-composable-continuation
|
||||
(lambda (unsafe-continuation-portion)
|
||||
(with-continuation-mark
|
||||
continuation-of-unsafe-part-mark unsafe-continuation-portion
|
||||
|
|
Loading…
Reference in New Issue
Block a user