From eabf9be37b77ee36ee822fbbb1e07e38ab0f6921 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 28 Jul 2016 06:50:35 -0400 Subject: [PATCH] Fix stupid error --- examples/operational-transformation/syndicate-server.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/examples/operational-transformation/syndicate-server.rkt b/examples/operational-transformation/syndicate-server.rkt index ed0a3fe..333d436 100644 --- a/examples/operational-transformation/syndicate-server.rkt +++ b/examples/operational-transformation/syndicate-server.rkt @@ -83,6 +83,6 @@ (command-line #:once-each [("-p" "--port") server-port ((format "Server port (default ~v)" (cmdline-port))) - (cmdline-port server-port)] + (cmdline-port (string->number server-port))] #:args (filename) (cmdline-filename filename)))