-(define (droid-status-format shot-response)
- (call-with-message
- shot-response
- (lambda* (_ #:key alive damage-taken hp-left)
- (if alive
- (format #f "Droid ~a shot; taken ~a damage. Still alive... ~a hp left."
- (address-actor-id (message-from shot-response))
- damage-taken hp-left)
- (format #f "Droid ~a shot; taken ~a damage. Terminated."
- (address-actor-id (message-from shot-response))
- damage-taken)))))
+(define* (droid-status-format droid-id alive damage-taken hp-left)
+ (if alive
+ (format #f "Droid ~a shot; taken ~a damage. Still alive... ~a hp left."
+ (address-actor-id droid-id)
+ damage-taken hp-left)
+ (format #f "Droid ~a shot; taken ~a damage. Terminated."
+ (address-actor-id droid-id)
+ damage-taken)))