* 8sync/actors.scm (actor-main-loop): Remove accidental double-when.
(lambda vals
;; Return reply if necessary
(when (message-wants-reply message)
(lambda vals
;; Return reply if necessary
(when (message-wants-reply message)
- (when (message-wants-reply message)
- (%<- #f actor (message-from message) '*reply*
- vals ((actor-msg-id-generator actor))
- (message-id message)))))))
+ (%<- #f actor (message-from message) '*reply*
+ vals ((actor-msg-id-generator actor))
+ (message-id message))))))
(const #t)
(let ((err (current-error-port)))
(lambda (key . args)
(const #t)
(let ((err (current-error-port)))
(lambda (key . args)