Small fix to message-handler invocation
This commit is contained in:
parent
a56f70bc9a
commit
fdeb257d46
6
os.rkt
6
os.rkt
|
@ -227,9 +227,9 @@
|
||||||
[((apply-getter (vm-vtable state))
|
[((apply-getter (vm-vtable state))
|
||||||
(message-handler-pattern (car message-handlers))
|
(message-handler-pattern (car message-handlers))
|
||||||
message)
|
message)
|
||||||
(perform-transition ((message-handler-k (car message-handlers))
|
(define trapk (message-handler-k (car message-handlers)))
|
||||||
(subscription-state sub))
|
(define interruptk (trapk message))
|
||||||
state)]
|
(perform-transition (interruptk (subscription-state sub)) state)]
|
||||||
[else
|
[else
|
||||||
(search-handlers (cdr message-handlers))])))
|
(search-handlers (cdr message-handlers))])))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue