Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Build out a separate pushMany function

  • Loading branch information...
commit 7443f57f5b9c0c45d2ddd753debaf499f8862823 1 parent 0f22640
Tom Parker authored
Showing with 5 additions and 1 deletion.
  1. +5 −1 src/clostridium/core.clj
6 src/clostridium/core.clj
View
@@ -298,10 +298,14 @@
)
)
+(defn pushMany [existing more]
+ (vec (concat existing more))
+)
+
(defn transfer [src dest ct rev]
(let [op (if rev reverse identity)
newSrc (popMany src ct)
- newDest (vec (concat dest (op (peekMany src ct))))
+ newDest (pushMany dest (op (peekMany src ct)))
]
(do
;(println "transfer" src dest ct)
Please sign in to comment.
Something went wrong with that request. Please try again.