Fixing slight bug

svn: r14872
This commit is contained in:
Jay McCarthy 2009-05-19 19:11:16 +00:00
parent e51ca461ae
commit bf36c8283e

View File

@ -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