syndicate-lang
/
racket-dns-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

It's better-named "pattern" than "matcher".

This commit is contained in:
Tony Garnock-Jones 2012-01-09 19:41:35 -05:00
parent 18ad15001c
commit a56f70bc9a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
os.rkt
View File

@ -113,7 +113,7 @@
;; A MessageHandler is one of
;; -- (message-handler MessagePattern TrapK<Message>)
(struct message-handler (matcher k) #:transparent)
(struct message-handler (pattern k) #:transparent)
;; A KernelModeTransition is a
;; (kernel-mode-transition Subscription
@ -225,7 +225,7 @@
;; back on the list for some future message.
(subscribe-process sub state)]
[((apply-getter (vm-vtable state))
(message-handler-matcher (car message-handlers))
(message-handler-pattern (car message-handlers))
message)
(perform-transition ((message-handler-k (car message-handlers))
(subscription-state sub))
@ -262,7 +262,7 @@
'()))
(define (wrap-meta-message-handler mh)
(message-handler (message-handler-matcher mh) dispatch-meta-message))
(message-handler (message-handler-pattern mh) dispatch-meta-message))
(define ((dispatch-meta-message message) state)
(run-vm