Oops - forgot the default case

2014-05-05 12:03:31 -04:00 · 2014-05-05 12:03:31 -04:00 · cd051dc8c0
parent ae15b002c7
commit cd051dc8c0
1 changed files with 2 additions and 1 deletions
--- a/external-latency.rkt
+++ b/external-latency.rkt
@ -82,7 +82,8 @@
 (void (match server-variation
 	[(? string? other)
 	 (printf "Press enter when the server has terminated.\n")
-	 (read-line)]))
+	 (read-line)]
+	[_ (void)]))

 (server-control 'wait)
 (log-info "Done.")