From a7788ad50f8433310d1d9ce5141ed839180abafe Mon Sep 17 00:00:00 2001 From: Greg Cooper Date: Fri, 9 Sep 2005 21:58:52 +0000 Subject: [PATCH] now it should work for everyone svn: r820 --- collects/frtime/frp-core.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/frtime/frp-core.ss b/collects/frtime/frp-core.ss index 162b322923..3e670acf87 100644 --- a/collects/frtime/frp-core.ss +++ b/collects/frtime/frp-core.ss @@ -23,7 +23,7 @@ (define frtime-version "0.3b -- Tue Nov 9 13:39:45 2004") - (define (compose-continuation-mark-sets s1 s2) + (define (compose-continuation-mark-sets2 s1 s2) s2) @@ -150,7 +150,7 @@ (begin #;(thread (lambda () (raise (make-exn:fail "extra marks present!" (extra-cont-marks))))) - (compose-continuation-mark-sets + (compose-continuation-mark-sets2 (extra-cont-marks) (current-continuation-marks))) (current-continuation-marks))) @@ -747,7 +747,7 @@ ; (exn-continuation-marks exn) 'frtime)) (set! exn (make-exn:fail (exn-message exn) - (compose-continuation-mark-sets + (compose-continuation-mark-sets2 (signal-continuation-marks cur-beh) (exn-continuation-marks exn))));)