# HG changeset patch
# User samer
# Date 1355944273 0
# Node ID 5da1b70e6fe9a013c8f737cc9a0605af55d22f45
# Parent  d35859afe98f95d5b286453bae938c60c02ac62b
Cleaning up.

diff -r d35859afe98f -r 5da1b70e6fe9 musiclm.pl
--- a/musiclm.pl	Tue Jan 24 22:31:49 2012 +0000
+++ b/musiclm.pl	Wed Dec 19 19:11:13 2012 +0000
@@ -304,7 +304,7 @@
 	structure_sampler(Structure, Sampler),
 	structure_event_builder(Opts,Structure,Trans),
 	option(print(PF),Opts,true),
-	(	PF=true -> Src = Src1>>arr(Printer) ; Src = Src1),
+	(	PF=true -> Src = (Src1>>arr(Printer)) ; Src = Src1),
 	Src1=src(Sampler,State1,State2).
 
 structure_sampler( hdplm(_,_), samp).