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

fix initialization error

Browse Source
This commit is contained in:
Jay McCarthy 2014-04-16 15:27:36 -06:00
parent 62466ddf9e
commit df3a082d1e
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
pkgs/frtime/lang-ext.rkt
View File

@ -411,21 +411,7 @@
undefined)
(current-inexact-milliseconds))
empty)]
[head last]
[producer (proc->signal
(lambda ()
(let* ([now (and (signal? consumer) (current-inexact-milliseconds))]
[ms (value-now ms-b)])
(let loop ()
(if (or (empty? (mcdr head))
(< now (+ ms (cdr (mcar (mcdr head))))))
(let ([val (car (mcar head))])
(if (event-set? val)
(make-events-now (event-set-events val))
val))
(begin
(set! head (mcdr head))
(loop)))))))]
[head last]
[consumer (proc->signal
(lambda ()
(let* ([now (current-inexact-milliseconds)]
@ -436,7 +422,21 @@
empty))
(set! last (mcdr last))
(schedule-alarm (+ now ms) producer))))
beh ms-b)])
beh ms-b)]
[producer (proc->signal
(lambda ()
(let* ([now (and (signal? consumer) (current-inexact-milliseconds))]
[ms (value-now ms-b)])
(let loop ()
(if (or (empty? (mcdr head))
(< now (+ ms (cdr (mcar (mcdr head))))))
(let ([val (car (mcar head))])
(if (event-set? val)
(make-events-now (event-set-events val))
val))
(begin
(set! head (mcdr head))
(loop)))))))])
producer))
(define (inf-delay beh)