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

now it should work for everyone

Browse Source 
svn: r820
This commit is contained in:
Greg Cooper 2005-09-09 21:58:52 +00:00
parent 0eac5e012d
commit a7788ad50f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/frtime/frp-core.ss
View File

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