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

fix non-tail loop in parallel `raco setup'

Browse Source 
Deep recursion with too-few recognizable JIT frames caused
trouble with `current-continuation-marks'.
This commit is contained in:
Matthew Flatt 2012-02-27 14:12:41 -07:00
parent 172c6379d1
commit 012ef60cd5
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/setup/parallel-do.rkt
View File

@ -425,16 +425,16 @@
(send/resp (list 'ERROR message)))
(define (send/reportp message)
(send/resp (list 'REPORT message)))
(with-handlers* ([exn:fail? (lambda (x)
(send/errorp (exn-message x))
(loop (add1 i)))])
(parameterize ([current-output-port out-str-port]
[current-error-port err-str-port])
(let ([msg (pdo-recv)])
(match msg
[(list 'DIE) (void)]
[_ (msg-proc msg send/successp send/errorp send/reportp)
(loop (add1 i))])))))))))))
((with-handlers* ([exn:fail? (lambda (x)
(send/errorp (exn-message x))
(lambda () (loop (add1 i))))])
(parameterize ([current-output-port out-str-port]
[current-error-port err-str-port])
(let ([msg (pdo-recv)])
(match msg
[(list 'DIE) void]
[_ (msg-proc msg send/successp send/errorp send/reportp)
(lambda () (loop (add1 i)))]))))))))))))
(define-syntax (lambda-worker stx)
(syntax-parse stx #:literals (match-message-loop)