Fix stupid error

2016-07-28 06:50:35 -04:00 · 2016-07-28 06:50:35 -04:00 · eabf9be37b
parent 48763d8dbe
commit eabf9be37b
1 changed files with 1 additions and 1 deletions
--- 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)))