Permalink
Browse files

Use ->> for arrange.

  • Loading branch information...
1 parent 4bd604e commit 0ac412830e86d8b8f3e77f35dcbc35bdb07e2778 @ctford committed Oct 30, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/goldberg/variations/canone_alla_quarta.clj
@@ -119,7 +119,7 @@
(defn note [timing pitch] {:time timing :pitch pitch})
(defn where [k f notes] (->> notes (map #(update-in % [k] f))))
-(defn arrange [part notes] (where :part (constantly part) notes))
+(defn arrange [part notes] (->> notes (where :part (constantly part))))
(defn from [base] (partial + base))
(defn play! [notes]

0 comments on commit 0ac4128

Please sign in to comment.