Make kill-reason a #:reason keyword.

This commit is contained in:
Tony Garnock-Jones 2012-05-02 13:53:20 -04:00
parent 5366c6898a
commit 07bab897cc
1 changed files with 1 additions and 1 deletions

View File

@ -186,7 +186,7 @@
(define (make-delete-role pre-eid [reason #f]) (delete-role pre-eid reason))
(define (make-send-message body [role 'publisher]) (send-message body role))
(define (make-spawn main [k #f]) (spawn main k))
(define (make-kill [pid #f] [reason #f]) (kill pid reason))
(define (make-kill [pid #f] #:reason [reason #f]) (kill pid reason))
(define (extend-transition t . more-actions)
(match t