Language change: tuple slot setter words with stack effect ( value object -- ) are...

[factor.git] / extra / synth / synth.factor

diff --git a/extra/synth/synth.factor b/extra/synth/synth.factor
index 90645e35623b75f0cc8b0dbe570a84b318a131c5..2b9fd8da0b8b0eb5833d1bfe4fa4fd08258582e9 100755 (executable)
--- a/extra/synth/synth.factor
+++ b/extra/synth/synth.factor
@@ -16,7 +16,7 @@ MEMO: single-sine-wave ( samples/wave -- seq )
     [ sample-freq>> -rot sine-wave ] keep swap >>data ;
 
 : >silent-buffer ( seconds buffer -- buffer )
-    [ sample-freq>> * >integer 0 <repetition> ] [ (>>data) ] [ ] tri ;
+    [ sample-freq>> * >integer 0 <repetition> ] [ data<< ] [ ] tri ;
 
 TUPLE: harmonic n amplitude ;
 C: <harmonic> harmonic
@@ -32,5 +32,5 @@ C: <note> note
     harmonic amplitude>> <scaled> ;
 
 : >note ( harmonics note buffer -- buffer )
-    [ [ note-harmonic-data ] 2curry map <summed> ] [ (>>data) ] [ ] tri ;
+    [ [ note-harmonic-data ] 2curry map <summed> ] [ data<< ] [ ] tri ;