Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Use ->> for arrange.

  • Loading branch information...
commit 0ac412830e86d8b8f3e77f35dcbc35bdb07e2778 1 parent 4bd604e
@ctford authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  src/goldberg/variations/canone_alla_quarta.clj
View
2  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]
Please sign in to comment.
Something went wrong with that request. Please try again.