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

Indent fix

Browse Source
This commit is contained in:
Kevin Tew 2011-05-03 14:39:52 -06:00
parent e2255e3f88
commit 811154cb08
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/racket/place-channel.rkt
View File

@ -189,10 +189,10 @@
(place-wait pl))
(let ([p (place/anon ch
(with-handlers ([exn:break? (lambda (x) (place-channel-send ch "OK") (printf "Place caught break"))])
(place-channel-send ch "ALIVE")
(sync never-evt)
(place-channel-send ch "NOK")))])
(with-handlers ([exn:break? (lambda (x) (place-channel-send ch "OK"))])
(place-channel-send ch "ALIVE")
(sync never-evt)
(place-channel-send ch "NOK")))])
(test "ALIVE" place-channel-receive p)
(place-break p)