Use the result of re-find, instead of seq-hacking the string.

sattvik · Apr 8, 2010 · 767ee67 · 767ee67
1 parent 10e476f
commit 767ee67
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/script/run.clj b/script/run.clj
@@ -1,8 +1,8 @@
 (when-let [run-swank (System/getenv "LABREPL_SWANK")]
   (println "Starting swank...")
   ;; Drop the enclosing double quotes from the environment variable and eval it.
-  (load-string (if (re-find #"^\".*\"$" run-swank)
-                 (->> run-swank (drop 1) (butlast) (apply str))
+  (load-string (if-let [found (re-find #"^\"(.*)\"$" run-swank)]
+                 (second found)
                  run-swank)))
 
 (require 'labrepl)