Racket's logging now emits *four* values

2013-04-11 15:18:57 -04:00 · 2013-04-11 15:18:57 -04:00 · 83085478b3
parent a55b9e2b4f
commit 83085478b3
1 changed files with 1 additions and 1 deletions
--- a/marketplace/log-untyped.rkt
+++ b/marketplace/log-untyped.rkt
@ -34,6 +34,6 @@
 	  (lambda ()
 	    (let loop ()
 	      (match (sync receiver)
-		[(vector level message data)
+		[(vector level message data event-name)
 		 (fprintf (current-error-port) "~a/~a\n" (level-code level) message)])
 	      (loop)))))])