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

added one more log line

Browse Source
This commit is contained in:
Robby Findler 2011-08-31 20:26:31 -05:00
parent a98fd7f60b
commit fd5019ddea
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/drracket/private/expanding-place.rkt
View File

@ -44,6 +44,7 @@
(define (abort-job job) (define (abort-job job)
(custodian-shutdown-all (job-cust job)) (custodian-shutdown-all (job-cust job))
(log-info "expanding-place.rkt: kill")
(place-channel-put (job-response-pc job) #f)) (place-channel-put (job-response-pc job) #f))
(struct exn:access exn:fail ()) (struct exn:access exn:fail ())