Fixed infinite loop in try-port

2012-02-11 00:20:36 +00:00 · 2012-02-11 00:20:36 +00:00 · 78f86118d7
parent 867909cae2
commit 78f86118d7
1 changed files with 4 additions and 2 deletions
--- a/src/ring/server/standalone.clj
+++ b/src/ring/server/standalone.clj
@ -7,8 +7,10 @@
  (if-not (sequential? port)
    (run-server port)
    (try (run-server (first port))
-         (catch Exception _
-           (try-port (next port) run-server)))))
+         (catch Exception ex
+           (if-let [port (next port)]
+             (try-port port run-server)
+             (throw ex))))))

 (defn serve
  "Start a web server to run a handler."