From bf36c8283ed55a39519cb8428429f8c6cf262c3f Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 19 May 2009 19:11:16 +0000 Subject: [PATCH] Fixing slight bug svn: r14872 --- collects/web-server/lang/abort-resume.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/web-server/lang/abort-resume.ss b/collects/web-server/lang/abort-resume.ss index 5862e2315a..1c0214067e 100644 --- a/collects/web-server/lang/abort-resume.ss +++ b/collects/web-server/lang/abort-resume.ss @@ -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