Bug fix. Arglists were in reverse order. Remember kids (into () ..) r…

…everses seq.
purcell · Sep 17, 2010 · 0123925 · 0123925
1 parent c8f6b42
commit 0123925
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/swank/commands/contrib/swank_arglists.clj b/src/swank/commands/contrib/swank_arglists.clj
@@ -39,9 +39,9 @@
            current (first arglists)
            remaining (rest arglists)]
       (if (position-in-arglist? current pos)
-        (into '() (concat checked
-                          [(highlight-position current pos)]
-                          remaining))
+        (apply list (concat checked
+                            [(highlight-position current pos)]
+                            remaining))
         (when (seq remaining)
           (recur (conj checked current)
                  (first remaining)